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Nesta edição os usuários dos micros TK-85 
poderão notar, nos programas publicados, uma 
atenção especial dada às suas inúmeras 
reclamações sobre a falta de matérias dirigidas a 

este equipamento. Estamos dando início a um artigo 
onde os usuários do TK-85 poderão incrementar o 
seu hardware, melhorando a alta-resolução do micro 
e, já na próxima edição, estes mesmos leitores terão 
outras surpresas. 

Este número é a primeira edição de 1986 e como 
já ressaltamos no editorial anterior continuaremos 
nossa meta de buscarmos as idéias para posteriores 
pautas, nas sugestões enviadas pelos leitores. 

Todo início de ano é sempre bastante dificil para 
qualquer publicação, principalmente no tocante ao 
cumprimento de prazos e elaboração de pautas. Por 
este motivo algumas ausências serão notadas nas 
páginas de Microhobby. 

Esta edição traz, em sua maior parte, programas 
para o TK-2000 e TK-85, porém uma menor 
quantidade de matérias para o TK-90 X. Isto se deve 
a alguns problemas ocorridos na programação, 
gravação e avaliação dos programas. Preferimos 
dessa forma, publicarmos apenas um programa 
(Arquivos) e deixarmos âqueles, com erros de lógica, 
para a próxima edição. 

Estamos planejando algumas inovações nas 
seções da Revista que acreditamos terão bastante 
receptividade por parte dos leitores. 

No mais, pedimos desculpas pelo pouco 
bate-papo, deixando as melhores coisas para O 
próximo número. 


Ana Lúcia de Alcântara 
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Cara Ana Lúcia, 

Embora com atraso, gostariamos de agra- 
decer pela atenção que nos foi dispensada 
por ocasião da última edição de Microhob- 
by. Sem dúvida alguma, poderíamos efetuar 
com maior profissionalismo ainda o nosso 
trabalho, se contássemos sempre com a se- 
riedade de pessoas como vocês. 

Dizemos tudo isso por sabermos que esta- 
mos lidando com profissionais que reconhe- 
cem e valorizam as informações das quais 
dispomos. 


Ângela Cassiano — Acesso 
Comunicação 
São Paulo - SP 


Cara Angela, 
Realmente agradeço imensamente os seus 
elogios. Estes são o nosso incentivo para que 


continuemos na luta do nosso dia-a-dia. 


Prezada Editora, 

Agradecemos a gentileza de seus comen- 
tários e a lembrança do envio de um exem- 
plar da Revista que, por sinal, está com uma 
bela apresentação e um bom conteúdo. Es- 
peramos que se torne cada vez melhor. 


Henrique Costábile 


Caro Senhor, 

Agradeço-lhe os elogios concernentes à 
Microhobby. Nossa equipe tem trabalhado 
seriamente, com o intuito de alcançar o me- 
lhor conteúdo editorial e, principalmente, 
atingir o principal interesse do usuário de 
micros fornecendo-lhe todo o apoio necessá- 
rio no uso de seu equipamento. 


Prezados Senhores, 
Sou possuidor de um TK-2000 e solicito 
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algumas informações: Comandos STORE e 
RECALL. Posso fazer um novo programa 
com o RECALL? Digito este programa após 
a leitura do programa principal? Não consi- 
go fazé-lo funcionar. Exemplifico: Fiz um 
programa simples com quatro variáveis 
DIM A(4) correspondendo aos valores de 
quatro cadernetas de poupança nos respec- 
tivos comandos DATA. Introduzt a fórmula 
de cálculo de juros e correção mediante um 
INPUT TEXA GE .. 


Helder Serra 
Santos - SP 


Caro Helder, 
Ao tentarmos esclarecer suas duvidas a 


respeito dos comandos STORE e RECALL, 
encontramos algumas dificuldades de inter- 
pretação. Por exemplo, não sabemos, sem 
uma visualização do seu programa, se os 
campos foram devidamente dimensionados. 
Caso tenham sido, precisamos saber mais a 
respeito do comando DATA utilizado no 
programa, para verificação de um possível 
estouro no campo anteriormente dimensio- 
nado. Necessitamos também saber se a recu- 
peração da matriz que você deseja, será “via 
computador” ou “via fita cassete”, pois tais 
comandos somente são atribuídos no segun- 
do caso. 


Portanto, se desejar maiores esclareci- 
mentos, envie-nos seu pequeno programa, 
gravado em fita cassete, para que possamos 
analisá-lo. 


Quanto à impressora TK-500 Printer ela é 
compatível aos TK-90X e TK-85. Provavel- 
mente, num futuro próximo, poderá ser 
compatibilizada ao TK-2000. Seu preço va- 
riará entre 2,5 e 3 milhões de cruzeiros. 


Prezados Senhores, 

Lendo a Microhobby, da qual sou leitor 
assíduo, encontrei erros no programa “Co- 
mo localizar Cometas com o TK-2000"' de 
Antonio Fernando Bertachini, editado na 
edição número 17. Peço-lhe uma outra pro- 
gramação deste programa, pois encontrei er- 


ro nas linhas 2060 e 6060. 


Luiz Pilotto Carrano 
Curitiba - PR 


Caro Luiz Pillotto. . 
Com o objetivo de esclarecermos suas dú- 


vidas a respeito do programa citado, carre- 
gamos o mesmo e funcionou perfeitamente. 
Portanto, os erros apontados em sua carta 
não foram localizados. O erro apontado foi 
uma falha de impressão. 

Por este motivo, aqui estão as linhas em 
referência: 2060 DATA 1974.7, 123.3, 126, 
6.51, 3.489, 386, 3.7, 1974.36, 67,8, 75.1, 
6.76, 3.576, 632, 30.2, 1970.77, 18.2, 188.4, 
1.41, 3.821, 351%, 10.2 
6060 IF (YR < 1582) OR (YR = 1582 AND 
MS < 10) OR (YR = 1582 AND MS = 10 
AND DIA < 15) THEN 8 = 0. 


Prezados Senhores, 

Primeiramente gostaria de parabenizá-la 
pela magnífica revista que vêm editando e 
também pela sua eficiente entrega. 

Tenho um CP-200, todos sabem que ele 
não é color e muito menos sonoro, não?! 
Pois meu problema é que há alguns meses 
consegui dois programas: (MISSAO AN- 
DROMEDA; ORGÃO), que emitem sons 
pela TV. O primeiro, mais conhecido como 
“penetrador”', ao recomeçar o jogo emite 
uma pequena música; o outro como o pró- 
prio nome diz emite notas musicais. Gosta- 
ria de saber como poderei programar notas 
musicais no CP-200 e se possível enviar:me 
um programa abordando este assunto. 


Marcio Renato Pinheiro 
Fortaleza, CE 


Caro Marcio, ei 
Através de um periférico (Software), com- 


patível ao CP-200, mas utilizado nos micros 
TK 82, 83, 85 torna-se possível programar 
notas musicais no seu micro. Mas, para 
maiores esclarecimentos, sugerimos que vo- 
cê entre em contato com um representante 
Prológica para saber qual o periférico que 
melhor se adapta ao seu micro. 


Prezados Senhores, 

Venho acompanhando a Microhobby já 
há alguns números. Isso se deve ao fato de 
ser a primeira revista a publicar informa- 





ções e bons programas para o micro TK- 
90X. 

Mas, no exemplar número 21, o progra- 
ma Base Lunar “roda 'em meu micro de 
maneira diferente da esperada. Isto ocorre 
da seguinte maneira: após as definições dos 
caracteres especiais, através da função UDG 
2, os mesmos são alterados pelo próprio 
computador, após o RUN, sem que eu te- 
nha usado qualquer das funções UDG b ou 
UDG 1 anteriormente. 

Pensando ser um erro no programa, cons- 
tatei o mesmo tipo de defeito no exemplar 
número 22, quando da utilização do pro- 
grama “256 Cores. 

Neste também os caracteres sairam modi- 
ficados em relação aqueles que defini no int- 
cio da carta. 

Peço-lhes a gentileza de informar-me so- 
bre o que ocorreu, se houve erro de impres- 
são ou se o meu micro está com algum de- 
feito. 


Alan €. Lima 
São Paulo - SP 


Caro Alan, 

Neste artigo, o que ocorreu foi que os 
caracteres especiais foram definidos 
duas vezes. Na primeira, antes de co- 
meçar a digitar o programa, entrando 
direto em UDG 2; (onde os caracteres 
especiais são redefinidos pelo próprio 
usuário) e por uma segunda vez, no 
próprio programa através das linhas 
DATA's, que foram definidas com o 
mesmo propósito. Na verdade não ocor- 
reu erro no programa porque, quando o 
comando RUN foi executado, a primei- 
ra definição que havia sido feita, antes 
de sua digitação, foi destruída pelas li- 
nhas DATA's existentes no programa 
que possuem os códigos referentes à de- 
finição dos caracteres. Isso ocorre 
porque, ao se transformar cada número 
em notação binária (O, 1), define-se au- 
tomaticamente os caracteres, não ha- 
vendo necessidade de uma definição 
prévia. Com respeito à compra do pro- 
grama citado, você poderá se encami- 
nhar a um revendedor autorizado Mi- 
crodigital. Por exemplo, a Fotóptica e a 
Mesbla em São Paulo. 


Cara Editora, 

Primeiramente quero parabenizar o ma- 
ravilhoso trabalho que vem sendo feito por 
sua equipe. Fiquei muito contente ainda ao 
ver, na página 9 da edição 24 da Microhob- 
by, o programa Alta-Resolução. 

Imediatamente liguei o meu microcompu- 
tador para passar o programa. Depois de fa- 
zer tudo como mandava a revista, executei o 
programa para entrar com os endereços he- 
xadecimais e, ao pedir o endereço inicial co- 
loquei 16618 e, no endereço final 16610, pa- 
ra meu espanto, o programa parou e surgiu 
no vídeo a seguinte mensagem: 0/140. Tor- 


nei a digitar RUN e o programa parou no- 
vamente. 


Alessandro Barbosa Laurenti 
São Paulo - SP 


Caro Alessandro, 

Agradecemos pelo seu elogio à Microhob- 
by. À respeito de seu problema, o erro cons- 
tatado por você no programa foi um proble- 
ma de diagramação onde, o mesmo foi .in- 
vertido: seu início (16514) acabou ficando no 
final do programa. Se você tentar seguir a 
sequência (16514, 16522, . . . 16706, 16714) 
poderá ter bons resultados. 


Prezados Senhores, 

Apreciamos muito que Microhobby pu- 
blicasse um programa de muita utilidade 
para nós, como Cadastro (edição número 
20). Porém, a meu ver, uma boa parte do 
programa ficou faltando. 


Eduardo Lara Campos 
Campinas - SP 


Caro Eduardo, 

Por uma falha nossa, o restante do pro- 
grama foi cortado indevidamente no “bone- 
co” final, desta edição. Mas, publicamos a 


sua complementação no número 22, página 
58 da Microhobby. 


Prezados Senhores, 

Adquiri um TK-2000 II, com 65k de me- 
mória e até agora venho utilizando-o apenas 
para rodar programas com um máximo de 
30 a 35k, o que tem sido perfeitamente pos- 
sível dentro do limite dos 38k disponíveis. 

No entanto agora surgiu a necessidade de 
rodar um programa com mais de 40k e, ba- 
seado nas instruções do manual técnico, não 
foi possível resolver o problema. 

Recorri então ao técnico em programa- 
ção da empresa que representa a Microdi- 
gital em Porto Alegre. Porém o rapaz não 
soube esclarecer coisa alguma. Simplesmen- 
te desconhece o assunto. 

Assim é que, através desta, estou recor- 
rendo aos senhores para que me respondam: 
em que situação poderei utilizar os 16 kBy- 
tes adicionais que estão localizados na re- 
gião da ROM? Como devo proceder para ter 
acesso a eles? 


Venino Nereu Zambon 
Porto Alegre - R$ 


Caro Venino, 

Tanto o TK-2000 como o TK-2000 II pos- 
suem duas páginas de vídeo, que são a MA e 
a MP. 

Se o programa que você estiver digitando 
não ultrapassar a área da MA, então não te- 
rá problemas. Caso ocorra o contrário e o 


programa invadir a MP, então tudo o que já 
foi digitado será perdido. 

Para que isso não ocorra e todo o trabalho 
se perca, você deve digitar MP antes de in- 
troduzir qualquer programa, pois este co- 
mando libera a segunda página de vídeo, 
tornando a MA e MP uma coisa só. 

Quando digitar o comando MP em seu 
TK-2000 II sua tela ficará repleta de traços 
verticais, digite HOME para limpar a tela e 
pode iniciar seu trabalho. 


Prezados Senhores, 

No TK-90X, as linhas de edição podem 
ser liberadas e no TK-85? Tentei fazer isto 
através de um POKE 23659 e só consegui 
um fundo preto, e perda de cursor. 

Qual a relação que existe entre os núme- 
ros que se seguem a DATA e a definição de 
caracteres? Por exemplo: DATA 2, 20, 2, 
22, 2, 24, 2, 26,3, 21, 3, 23, 3, 25, 4, 22, 4, 
24, 5, 23...?no TK-90X, o que quer di- 
zer? 

Peço-lhes também informações acerca do 
programa “Boliche publicado na edição 24 
pois, ao rodá-lo, aconteceram alguns pro- 
blemas: ao fazer uma jogada, não importa 
quantas garrafas tenha sido derrubadas, a 
marcação dos pontos é sempre 1. Acontece- 
ram também outros problemas. Será que há 
algum problema com o programa? 


GUAR 


E onde você encontra tudo para 
os micros da linha TK. 
e SOFTWARE (Jogos e Aplicativos) 
e ACESSÓRIOS 
e PERIFERICOS 
e LITERATURA 
e EO NOVO TK 90X - MICRODIGITAL 


A. 0 micro 


=> cheio de 


- Bass programas. 


- JOGOS APLICATIVOS SABER BND] 


e APLICATIVOS TK-85 / TK-20001 EM FITA 
E DISKETE eg 
Microidéia 


PASSE SEU PROGRAMA EM FITA SEM 

PROBLEMAS UTILIZANDO A INTERFACE LH-3. 

CONHEÇA TAMBÉM O MONITOR LH-12 
R.C.C. 


FAÇA O CURSO DE BASIC NA MELHOR ESCOLA DE S.PAULO 


miormética ltda 
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Expedito do Nascimento Nunes 
Belém - PA 


Caro Expedito, 

Para a liberação das linhas no TK-90X vo- 
cê deve proceder da seguinte forma: 
— digite:; POKE 23692, O: LIST, a lista- 
gem correrá sem o SCROLL. A relação que 
existe entre o comando DATA e a definição 
dos caracteres é a seguinte: ao se converter 
cada número do DATA em binário, você te- 
rá uma combinação de bits 0 e 1 (o número 1 
indica a existência de um ponto e o Q a ine- 
xistência do ponto). Se você está lembrado, 
ao se fazer a definição dos caracteres, você 
especifica a existência, ou não, de um pon- 
to. E esta é a relação. 

À respeito do programa “Boliche”, verifi- 
camos novamente sua estrutura e o testa- 


mos, mas não nos deu problemas. Tente di- 
gitar novamente o programa, talvez você te- 
nha trocado alguma variável. 


Prezados Senhores, 

Tenho um TK-2000 com gravador casse- 
te. Pretendo adquirir um drive e a minha 
pergunta é a seguinte: 

Possuo vários jogos em Linguagem de Ma- 
quina, será possível passá-los para o disque- 
te? Como devo proceder? 

A fita gravada em BASIC e gravada com a 
MP aberta, ou seja, sendo usada, como de- 
vo transferir para o disquete, pois soube que 
a transferência não se efetua completa- 
mente, cortando no meio o programa? 


Nilton Oliveira da Silva 
Rio de Janeiro - RJ 


Caro Nilton, 

Em resposta às suas perguntas estamos 
fornecendo algumas respostas que espera- 
mos possam solucionar as suas dificuldades. 
Você pode passar seus programas em As- 
sembly da fita para o disquete. Porém isso 
depende do programa. Se for um software 
mais sofisticado ficará difícil pois, ao se dar 
RESET, o programa automaticamente é 
apagado da memória. Caso isso não ocorra, 
você terá de acionar a segunda página da 
memória com a MP e entrar no monitor com 
LM. Neste ponto se complica um pouco, 
pois você terá que encontrar o início e o fim 
do programa em Assembly. Ao encontrá-lo 
digite:; Posição inicial, posição final + 2 po- 
sições W (“NOME DO PROGRAMA”). 
Por exemplo 0800.08FFW “PROG”,. Com 
isso, você estará gravando seu programa em 
Assembly para o disco. 


Clube de Usuários 


TK-90X e Compatíveis 


Sergio Alexandre Felix 
Molina 

ONB 4 casa 36 

72000 Taguatinga DF 
Equip. TK-90X 

área de inter. jogos, 
didática 


Sergio Dantas 

R. Reseda 167 
05675 São Paulo SP 
Equip. TK-90X 

área de inter. jogos e 
educativos 


Werner Mathi 

Caixa Postal 323 

19900 Ourinhos SP 

Equip. TK-90X 

(também possui um TK-85) 


Adans Richard Jirschik 

R. Nazzareno Donnini 52 
Monte Kemel 

05634 São Paulo SP 

Equip. TK-90X 

(também possui um TK-85) 
área de inter. programas, 
eletrônica e informações 


Alexandre M. de Brito 
SHIN Q1 13 CJ/4 casa 4 
71500 Brasília DF 
Equip. TK-90X 
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(também possui um TK-85) 


Antonio William Silva 

Pça. Santo Antonio 29 
Recreio 

45100 Vitória da Conquista 
BA 

Equip. TK-90X 

(também possui um TK-85) 
área de inter. Basic, 
Assembly 


TK-85 e Compatíveis 


Fabio Henrique Alves de 
Paulo 

R. Diogo Garcia Carmona 
1240 

15300 General Salgado SP 
Equip. TK-85 

área de inter. educação 

e lazer 


Ronaldo R. da Costa 

R. Luiza Trav. R. Claudia 5 
03617 São Paulo SP 
Equip. TK-85 

área de inter. 


Rui Paulo Rodrigues 
Branquinho 

R. Maria Figueiredo 230 
ap. 104 

04002 São Paulo SP 
Equip. TK-85 

área de inter. 


Pedro Paulo C. Alvim 
Correa 

Caixa Postal 41 

06730 Vargem Grande 
Paulista 

Equip. TK-85 

área de inter. Assembly, 
jogos e aplicativos 


Marcelo Pizarro 

R. Tucuna 273 Pompéia 
05021 São Paulo SP 
Equip. TK-85 

(também possui um 
CP-200) 

área de inter. matemática 


Fernando Luiz B. da Silva 

R. Julio de M. Filho 10-54 

ap. 51 

17100 Bauru SP 

Equip. TK-85 

área de inter. Organiza um 
Clube de Usuários em sua 

cidade 


TK-2000 e Compatíveis 


Vicente Quartieri Neto 
R. Ipê 110 Pq. Bitarú 
11300 São Vicente SP 
Equip. TK-2000 Il 

área de inter. eletrônica 
digital 


Nilton Oliveira da Silva 
Aeroporto Santos Dumont 
4º Depto. de Aviação Civil 
20021 Rio de Janeiro RJ 
Equip. TK-2000 


Antonio Alberto P. da Silva 
R. Canarias 121 Sta. Amelia 
30000 Belo Horizonte MG 
Equip. TK-2000 

área de inter. jogos e 
aplicativos 


Charles Henrique Frazão 
Matos 

R. 146 0-129 casa 34 Vila A 
85890 Foz do Iguaçu PR 
Equip. TK-2000 

área de inter. jogos e 
utilitários 


Temistocles A. Santos 
Caixa Postal 1122 
50000 Recife PE 
Equip. TK-2000 Il 


Paulo Cezar Loyola 
Camorim 

R. ATE. Cochrane 32 
ap. 404 

20000 Rio de Janeiro RJ 
Equip. TK-2000 

área de inter. jogos, 
aplicativos e Basic 





RPASoft uma escola para 
usuários leigos 





Sala de aula na RPA Software 


Oferecer uma base profissionalizan- 
te da informática é o principal objetivo 
da RPASoft uma escola de computa- 
ção para usuários leigos. 

E foi com esse intuito que os irmãos 
Carlos e Roberto Peres Angelelli fun- 
daram há um ano e meio esta escola de 
computação, ampliando assim o ramo 
de atuação da RPASoft, empresa de 
assessoria e consultoria em softwares, 
criada há dois anos. 

Com duração de dois meses, o cur- 
so, ministrado por um professor e dois 
orientadores, é subdividido em dois 
segmentos. Inicialmente, o aluno rece- 
be informações teóricas sobre a histó- 
ria do computador, noções de microin- 
formática e de Basic, todas baseadas 


no livro de Larry Gonick, Introdução à 
Computação. Posteriormente são da- 
das aulas práticas, que fazem.parte de 
um pacote de softwares com três pro- 
gramas: processador de texto, plani- 
lha de cálculo, e Banco de dados. Os 
equipamentos utilizados na RPASoft 
são os seguintes: TK-85 e TK-90X, da 
Microdigital Eletrônica; CP-200, da 
Prológica; o Exato, da CCE; Itautec Ju- 
nior Ee o | 7000, também da Itautec. 

O Curso de Computação para usuá- 
rios é composto de duas aulas por se- 
mana, funcionando só no turno da noi- 
te. A RPASoft fica na Av. Paulista, 
1159, Conjunto 1210, em São Paulo. 
Maiores informações pelo telefone 
(011) 289.21.18. M.R. 


Seminário na Itália é presidido 
por brasileiro 


O brasileiro José Mauro Leal Costa, 
professor e diretor de Tecnologia da 
ABC XTAL, de Campinas, vai presidir 
os trabalhos do Seminário de Comu- 
nicação por Fibras Ópticas, em Tries- 
te, que irá se realizar de 24 de fevereiro 
a 21 de março. 


Este evento tem o patrocínio do 
Centro Internacional de Física Teórica; 
da Agência Internacional de Energia 
Atômica e da UNESCO. Ele visa anali- 
sar.as modernas técnicas de utilização 
das fibras ópticas e suas aplicações nas 
telecomunicações. M.R. 


Pró-Eletrônica 
lança SPC 


Ao dar continuidade à sua filosofia 
de incentivo ao software, a Pró-eletrô- 
nica desenvolveu o programa “Siste- 
ma Padrão de Contabilidade”. 

Dirigido aos usuários que possuam 
micros da linha Apple, com CP/M, es- 
te programa tem o objetivo de solucio- 
nar os problemas mais frequentes da 
contabilidade, além de efetuar tarefas 
como: balancete de verificação, balan- 
cete mensal, livro diário, balanço geral 
anual, etc. 

Segundo o gerente de software da 
Empresa, Marcos Aurélio e Silva, o 
SPC foi projetado em oito meses e o 
público alvo pretendido pela Pró-Ele- 
trônica é, principalmente, o das peque- 
nas empresas prestadoras de serviço. 
Marcos Aurélio acrescentou, ainda, 
que a Empresa lançou-se no segmento 
de aplicativos para “suprir a falta de 
programas específicos no mercado”. 

O Sistema Padrão de Contabilidade 
custa 40 ORTN's e é o terceiro soft- 
ware desenvolvido pela Pró-Eletrônica, 
empresa que firmou-se como revende- 
dora de equipamentos para informáti- 
ca. M.R. 


Microdigital 
exporta novo 
lote para a 
Argentina 


A Microdigital Eletrônica, empresa 
que conta atualmente com 482 pontos 
de venda na Argentina, embarcou mais 
um lote de sete mil computadores para 
este País, que é o seu principal merca- 
do externo. 

Ainda na Argentina, a empresa inau- 
gurou uma Central Administrativa, que 
ocupa três andares de um prédio pró- 
prio. Esta iniciativa, segundo o Diretor 
Presidente da Microdigital, George Ko- 
vari, visa intensificar e acelerar os con- 
tatos comerciais da empresa com os 
usuários locais. M.R. 
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Conselho de Associados da  LINC Ilamplia a 
ABEP se reúne em Manaus 


Temas como legislação de softwa- 
res; democratização dos bancos de da- 
dos e outros assuntos estiveram em 
pauta na última reunião do Conselho 
de Associados da ABEP (Associação 
Brasileira das Empresas Estaduais de 
Processamento de Dados), em Ma- 
naus. 

Durante o encontro foram definidos 
grupos de trabalho que deverão apre- 
sentar sugestões à lei de software, 
além de outras propostas. Entre elas 
está a idéia de criação de um “pool” de 
empresas com o objetivo de uniformi- 
zar os softwares para a realização de 
cadastramento eleitoral, levando em 
consideração a descrição dos equipa- 
mentos e recursos humanos de cada 
empresa filiada à ABEP. 


Incentivar, difundir e desenvolver o 
uso nacional da informática, na admi- 
nistração pública, foram os principais 
pontos da ata da UBI (União Brasilei- 
ra de Informática Pública), cuja cons- 
tituição também foi apresentada no 


evento. Segundo o presidente desta 
nova entidade, Egydio Bianchi, esta 
instituição “deverá lutar pela demo- 


cratização da informação, mediante 
acesso de vários setores da sociedade 
aos bancos de dados, administrados 


pelas instituições públicas; estudar, 
definir e propugnar pela adoção de me- 
todologias para integração de sistemas 
de processamento de dados nos ní- 


veis federal, estadual e municipal”. 
M.R. 


Data Byte inaugura sua 
Oitava Escola 


O Grupo Data Byte acaba de inaugu- 
rar mais uma Unidade de ensino ligada 
à área de informática. Situada em 
Americana, no interior de São Paulo, 
esta já é a oitava filial do Grupo que 
oferecerá, inicialmente, três cursos: 
Basic Avançado (com duração de três 
meses); Cobol (com quatro meses) e 
Digitação (um mês com aulas diárias). 

A Data Byte conta com 4 salas de 


aula; 2 laboratórios, com 20 microcom- 
putadores da CCE, 3 computadores 
Exatos e um S 101 da Polimax, além de 
material de audiovisual e vídeo-teipe. 


Os interessados poderão obter maio- 
res informações no seguinte endereço: 
Rua Fernando Camargo, 895/11º an- 
dar — Americana — SP, ou pelo tele- 
fone (0194) 65.27.35. M.R. 


produtividade 


Contas a pagar, sistemas para ge- 
renciar a fabricação de materiais, in- 
ventários e entrada de pedidos, admis- 
sões de alunos, registros médicos, etc. 
Estes e muitos outros serviços poderão 
ser oferecidos pelo LINC Il, a nova ver- 
são de software, de 4º geração da Bur- 
roughs, que pode ser utilizada em qual- 
quer computador de médio ou grande 
porte, fabricado pela empresa. 

As principais características do LINC 
|| são: desenvolvimento interativo diri- 
gido por menus, dicionário de dados 
associado, desenho de telas e relató- 
rios, intercomunicação de sistemas de 
aplicação, acesso a documentação on- 
line, relatórios em vídeo “folheáveis” e 
suporte a múltiplas linguagens. Este 
sistema também opera com gerencia- 
dor de banco de dados, compilador 
Cobol 74, terminais compatíveis com 
TM 9830/TM 6830, impressoras remo- 
tas compatíveis com TM 3131/TM 
3135, etc. 

Redução do tempo de geração, on- 
de um plano de cinco anos de desen- 
volvimento de aplicações pode ser re- 
duzido para dois anos. Isto é um exem- 
plo da aplicabilidade do LINC Il, que 
trata-se de uma ferramenta destinada 
a soluções empresariais, aumentando 
a utilização dos recursos do micro e 
proporcionando assim maiores ganhos 
na automação de negócios. M.R. 


Line Filter acaba com 
o problema de interferência 


Para solucionar os problemas de in- 
terferência nos microcomputadores, 
causados por oscilações da rede elétri- 
ca, a Metron Indústria Eletrônica de- 
senvolveu o Line Filter, um filtro de li- 
nha passivo, que filtra os picos de ten- 
são acima de 130 volts. 

Com dimensões reduzidas e de fácil 
utilização, o Line Filter protege o equi- 
pamento de todas as “sujeiras” da re- 
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de, proporcionando uma alimentação 
limpa e segura. Para conectar o apare- 
lho, basta ligá-lo entre a tomada e o 
seu equipamento através de um plug, 
interligando-o a um fio terra (AWG 20) 
na carcaça do filtro. 

Este produto está à disposição no 
mercado em três modelos: o LF-2, com 
duas tomadas e cabo duplo (custando, 
aproximadamente, Cr$ 347 mil); o LF- 


31, com 3 tomadas, cabo duplo e inter- 
ruptor luminoso e o LF-4, com 4 toma- 
das e cabo duplo (ambos em torno de 
Cr$ 515 mil). 


Os interessados em adquirir o Line 
Filter, poderão encontrá-lo nos seguin- 
tes revendedores: Filcril; Pró-Eletrôni- 
ca; Fotóptica; Zamir; Memphis e ou- 
tros. M.R. 


HOBBY 


MANO 


Manual de Auditoria de 
Sistemas chega ao Brasil 


Oferecer uma visão aprofundada dos 
métodos desenvolvidos para a audito- 
ria de sistemas de processamento de 
dados. Este é o principal objetivo do li- 
vro “Handbook of EDP Auditing”, re- 
centemente publicado nos Estados 
Unidos e que agora chega ao Brasil. 

Ainda em inglês, esta publicação é o 
resultado de todo o material produzido 
pela empresa Coopers & Lybrand, on- 
de as técnicas nele apresentadas são 
adotadas em todos os seus escritórios 
internacionais, inclusive os do Brasil. A 
Coopers & Lybrand presta serviços nas 
seguintes áreas: auditoria, apoio com- 
putacional à auditoria, consultoria ge- 
rencial, fiscal, tributária e de recursos 
humanos e serviços às empresas em 
desenvolvimento. 

“Handbook of EDP Auditing” está à 
venda, no escritório da Coopers & Ly- 
brand, em São Paulo, que fica na Av. 





Livro da Coopers & Lybrand 


Brigadeiro Faria Lima, 888, 4º e 5º an- 
dares. Maiores informações pelo tele- 
fone (011) 815-3366. M.R. 


Teletexto um sistema 
informatizado de Editar 


Com o intuito de agilizar os serviços 
de fotocomposição, a Ponto Editorial 
está oferecendo aos seus clientes o te- 
letexto: um sistema de transmissão de 
texto pelo telefone. 

Este sistema, único existente no 
mercado, funciona através de um mi- 
crocomputador que, por intermédio de 
um modem, transmite as mensagens, 
pela linha telefônica. Sendo assim, to- 
das as informações referentes ao tex- 
to, (tipo de letra, nº de colunas, corpo, 


etc.) necessárias para o desenvolvi- 
mento de uma fotocomposição, são 
fornecidas pelo cliente (via computa- 
dor) à Ponto Editorial (que as recebe na 
sua central). 


O equipamento utilizado pela Ponto 
Editorial é o CP-50O da Prológica que, 
juntamente com o modem, é alugado 
ao cliente, no valor mensal de 5 
ORTN's. O telefone para maiores infor- 
mações é 864.3499. M.R. 


Labo agiliza serviço de 
assistência técnica 


Preocupada em oferecer um atendi- 
mento de qualidade aos seus usuários 
a Labo Eletrônica instalou um serviço 
especial de Assistência Técnica, via te- 
lefone. Trata-se do CAN — Centro de 


Atendimento Nacional que a empresa 
criou para agilizar o atendimento aos 
seus clientes. O serviço funciona de se- 


gunda a sábado, das 08:00 hs as 18:00 


horas pelo telefone 533.5681. M.R. 


Antes de inscrever-se em qual- 
quer curso de informática, conte 
até 10. Conheça a escola, os mé- 
todos e equipamentos. Confira 
se o que você vai aprender bate 
com o que você realmente preci- 
sa. O SENAC-INFORMÁTICA é 
a escola mais completa de São 
Paulo. Tem cursos práticos para 
quem quer aprender a operar, 
programar, conhecer linguagens, 
aplicativos, ou simplesmente, jo- 
gar com o micro. O SENAC-IN- 
FORMATICA está oferecendo 
10 novos cursos nota 10 da linha 
Sinclair. Escolha o seu e venha 
tirar a prova dos 9. Você vai con- 
cordar em número, gênero e 
grau! 


Operação TK90X e 
1 Introdução ao Basic 
* Sinclair 


Programação 
Basic TK90X 


Assembler Z-80 


2 
S. 


Assembler Z-80 
Avançado 


a 


Criação e Programação 
de Jogos no TK90X 


n 


Criação e Programação 
de Aplicativos 
no TK 90X 


o 


FORTH no TK90X 


Oo = 


PROLOG no TK 90X 


Aplicações Profissionais 
do TK90X 


Logo para Crianças 


OO 


1 


INSCRIÇÕES ABERTAS. 
VAGAS LIMITADAS! 


Informações e Inscrições: 


Rua Dr. Vila Nova, 228 
Tel.: (011) 255-0066 


“informática 
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USP já é o maior parque 
individual de 16 Bits no Brasil 


A USP acaba de adquirir mais 400 
computadores da linha PCXT 2002, da 
Microtec, empresa de microcomputa- 
dores de 16 bits que novamente ven- 
ceu uma concorrência pública com a 
Universidade de São Paulo. Este lote 
de equipamentos vem se juntar aos 102 
computadores PC 2001, também da 
Microtec, comprados anteriormente 
para completar o plano de informatiza- 
ção da USP. Acompanham o lote 400 
impressoras Amélia, adquiridas em 
06M, e o Sistema Operacional DOS 
86, desenvolvido pela própria Micro- 
tec. 

Segundo o Professor Lucas Mosca- 
to, coordenador do projeto da USP, 
com estas 502 máquinas, a USP torna- 
se o maior parque individual de 16 Bits 
instalado no Brasil. No entanto, o pla- 
no de informatização prevê a aquisição 
de um total de duas mil máquinas. 


Estes equipamentos serão distribuí- 
dos da seguinte forma: 60% para o en- 
sino e 40% para pesquisa, abrangendo 
as cidades de São Paulo, Pirassunun- 
ga, Piracicaba, São Carlos, Baurú, 
Ubatuba (será utilizado em pesquisa de 
biologia marinha) e Marabá (Campo 
avançado da USP, em pesquisa com 
agricultura). Além dessas escolas, al- 
guns micros serão colocados em mu- 
seus do Estado de São Paulo, para 
controle de acervo e pesquisa históri- 
ca, já que todos os museus de São 
Paulo são controlados pela USP. 

O financiamento desse lote, cláusu- 
la obrigatória da concorrência, foi obti- 
do junto ao Badesp, com recursos do 
programa Pró-Info do BNDES. A USP 
terá um prazo de 6 anos para amorti- 
zação, com três anos de carência, no 
valor da*ORTN da época mais 3% de 
juros anuais. M.R. 


> 


FENASI'86 


No período de 24 a 27 de abril vai se 
realizar, no Palácio das Convenções do 
Anhembi, o | FENASI'86 (Feira Nacio- 
nal de Acessórios, Suprimentos e Ins- 
talações para Informática). 

Sob a organização e realização da 
Apple Propaganda, este evento reuni- 
rá aproximadamente 70 empresas do. 
setor de suprimentos. Entre elas es- 
tão: a IBM do Brasil, Moore Formulá- 
rios Contínuos, Burroughs, Texprint, 
Data Ribbon e Vector. 

Em paralelo à Feira, estará sendo 
realizado o | ENFASI (Encontro Nacio- 
nal dos Fabricantes e Fornecedores de 
Acessórios, Suprimentos e Instala- 
ções para Informática), onde especia- 
listas farão palestras técnicas sobre o 
atual estágio do setor no País e as prin- 
cipais tendências mundiais. 

Segundo representantes da Apple 
Propaganda espera-se o compareci- 
mento de aproximadamente 25 mil visi- 
tantes selecionados, já que não haverá 
venda de ingressos. Os convites serão 
distribuídos entre os expositores. M.R. 


Calendário do Mês 


20 e 21/01 — Seminário: “Conhe- 
ça o IBM-PC e suas aplicações” — 
São Paulo, Compucenter — tel.: 
(011) 255-5988. 

De 20 a 24/01 — Introdução ao Lo- 
tus 1-2-3 — São Paulo — SENAC — 
tel.: (011) 2655-0066. 

De 21/01 a 05/02 — Programação 
em Linguagem Basic | e ll — São 
Paulo — Apple Cursos e Sistemas — 
tel.: (011) 853-9457 ou 853-2408. 

De 27/01 a 05/02 — Lotus 1-2-3 — 
São Paulo — SENAC. 

De 27 a 31/01 — d-Base ||| — São 
Paulo — Servimec — tel.: (011) 222- 
1511. 

28 e 29/01 — Seminário: “Como 
processar textos como o Word” — 
São Paulo — Compucenter. 

De 29 a 31/01 — d-Base || — São 
Paulo — Servimec. 

17/02 (início) — Programação Ba- 
sic para microcomputadores — São 
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Paulo — FDTE/EPUSP/IPT — tel.: 
(011) 813-6208 ou 815-9322. 

17/02 (início) — Microprocessado- 
res A: Conceitos básicos — São Pau- 
lo — FDTE/EPUSP/IPT. 

17/02 (início) — Arquitetura de 
Computadores | — São Paulo — 
FDTE/EPUSP/IPT. 

De 17 a 21/02 — Introdução ao Su- 
percalc-3 — São Paulo — SENAC. 

18/02 (início) — Lógica Computa- 


cional | — São Paulo — FDTE/ 
EPUSP/IPT. 

18/02 (início) — Linguagem FOR- 
TRAN — São Paulo — FDTE/ 
EPUSP/IPT. 

19/02 tinício) — Sistemas Opera- 
cionais — São Paulo — FDTE/ 
EPUSP/IPT. 

20/02 (início) — Laboratório de 
Eletrônica Básica — São Paulo — 


FDTE/EPUSP/IPT. 
20/02 (início) — Engenharia de 


Programação: Aspectos Metodológi- 
cos — São Paulo — FDTE/EPUSP/ 
IPT. 

24 e 25/02 — Seminário: “d-Base 
ll o Banco de dados do PC” — São 
Paulo — Compucenter. 


De 24 a 26/02 — Seminário: Admi- 
nistração Eficaz da produção do CPD 
— Técnicas e Processamento — São 
Paulo — Servimec. 

De 24a 28/02 — Wordstar para mi- 
crocomputadores compatíveis com o 
/BM-PC — São Paulo — SENAC. 


De 26 a 28/02 — Introdução ao 
CICS — Rio de Janeiro — CKL Trei- 
namento Empresarial Avançado — 
tel.: (021) 242-2912 ou 222-1609. 


De 26 a 28/02 — O uso do Micro- 
computador na Advocacia — São 
Paulo — SENAC. 

De 26 a 28/02 — Engenharia de 
Software — Rio de Janeiro — CKL. 


Presidente 


Imagine-se no papel de um Presidente da República! 
Você agora é o chefe supremo de uma Nação 
chamada “Fratasia” e, neste papel, terá que enfrentar 
vários obstáculos. Entre estes, guerra civil, greves e 
crises econômicas. Estes são alguns dos objetivos 
deste jogo, onde você, como usuário, terá que 
vencer todos os desafios para permanecer no Poder. 


Este software é um jogo idealizado 
pela Multisoft Informática, para mi- 
cros compatíveis com o ZX Spectrum. 

O objetivo central do jogo é fazer 
com que o jogador mantenha-se, o 
maior tempo possível, dentro da estru- 
tura de Poder proposta pelo programa. 
Para conseguir tal meta, o Presidente 
deve ser um hábil articulador político, 
conquistando um bom indice de popu- 
laridade e equilíbrio nas finanças do 
Pais. 


Características gerais 


A estratégia do jogo baseia-se nas 
decisões tomadas pelo jogador frente 
as três situações apresentadas. 

A primeira refere-se às “audiências 
dos segmentos sociais internos”, que 
são, nada mais, nada menos, a prefe- 
rência popular pelo governante. 

A segunda diz respeito às “decisões 
presidenciais” a serem tomadas pelo 
governante. 

A terceira e última refere-se aos 
“acidentes nacionais” ou às situações 
difíceis pelas quais o Presidente terá 
que passar “ileso”. São as crises en- 


frentadas pelo Pais como epidemias, 
iminências de guerra, revoluções, etc. 
O caminho a ser escolhido pelo gover- 
nante pode ser orientado pelas seguin- 
tes bússolas: 


— relatório da polícia; 

— relatório do tesouro; 

— conselho e notícias vindas pelos 
jornais. 

O Relatório da Polícia serve para vo- 
cê analisar o contexto atual interno e 
externo do País. O Relatório do Tesou- 
ro lhe será útil para controlar as finan- 
ças do Estado. Lembre-se que a falên- 
cia do País fatalmente implicará na cas- 


sação do seu mandato. O Conselho lhe 


servirá para ponderar sobre a conve- 
niência política e econômica de qual- 
quer decisão e as Notícias para você 
tomar conhecimento dos momentos 
críticos por que passa “Fratasia”. 


Funcionamento do Presidente 


Ão carregar o programa, pressione 
qualquer tecla e o jogo iniciará com sua 
apresentação. Sua forma “auto-expli- 
cativa” facilita seu manejamento. 


Paulo Panagiotis Alvanos 


As decisões começaram ja ser co- 
bradas pelo Programa e, seja qual for 
sua resposta, sua popularidade muda 
nos meios sociais. 

O jogo apresenta pouca resolução 
gráfica, mas bem definida e encaixada 
em partes certas do programa. Sua so- 
norização é boa, tocando marchas em 
partes decisivas tais como a marcha fú- 
nebre e o Hino Nacional. Os sons de 
batalhas são os mais realistas possi- 
veis, tornando interessante o jogo e 
quebrando, às vezes, sua monotonia. 

Detalhes mais profundos podem ser 
lidos num pequeno manual que acom- 
panha a fita. Este tem uma linguagem 
simples e fácil de ser entendida. 


Comentários finais 


Este é um ótimo jogo para desenvol- 
ver seu raciocínio e não há limite de 
idade para jogá-lo. 

Com um pouco de paciência, você 
poderá desenvolver sua estratégia, se 
familiarizando com o micro e com o 
programa. Este software pode ser en- 
contrado na Mesbla, Mappin (em São 
Paulo) e em lojas especializadas. E 
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Assembler Z80 


Desenvolva suas próprias 
rotinas em Assembler Z80 


Paulo Panagiotis Alvanos 


Este software, desenvolvido pela 
Multisoft Informática Ltda. para micros 
TK 83/85 de 16k e 4&, tem como ob- 
jetivo compilar um programa fonte em 
Assembly (processador Z80) para o có- 
digo de máquina. 

Sua utilização não vai ensiná-lo a 
programar em Assembler mas, auxiliá- 
lo em seu estudo. 


Caracteristicas de seu uso 


Após o “Assembler Z80" ser carre- 
gado aparecerá na tela o código de er- 
ro “1/0”, isto indica que o programa 
foi carregado corretamente e passará a 
ocupar bk de memória. 

Para se entrar com o programa em 
Assembly é necessário digitar as ins- 
truções em linhas REM, respeitando o 
padrão de mnemônicos, ZILOG Z80, 
exceto as vírgulas que devem ser subs- 
tituídas por pontos. É permitido mais 
de uma instrução por linha desde que 
estejam separadas por ";” (ponto e vír- 
gula). Para estes pequenos detalhes a 
fita é acompanhada de um pequeno 
manual, que apresenta mais caracteris- 
ticas de sua programação com peque- 
nos exemplos*e todos os mnemônicos 
que podem ser utilizados. 


Comentários Finais 


O programa é destinado áqueles que 
pretendem se aprofundar em lingua- 
gem Assembly, o programa não é 
auto-explicativo mas, tem um bom ma- 
nual. 

Sua comercialização já está sendo 
feita e pode ser encontrado em Lojas 
do ramo. ES 
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Compilador Basic 


Definição do que é um compilador 


O Compilador transforma um pro- 
grama escrito em Basic num progra- 
ma equivalente, em código de máqui- 
na, código no qual seu TK-90X sempre 
está trabalhando. 

O Basic utilizado por você, para es- 
crever seus programas, é compreen- 
dido pelo TK-9X porque existe na 
ROM deste equipamento o conhecido 
“interpretador Basic”. Este é escrito 
em código de máquina, pois a CPU 
não compreende a linguagem Basic. O 
computador desperdiça muito tempo 
ao rodar um programa em Basic, pois 
necessita sempre “traduzí-lo” para a 
CPU, por isso a necessidade de se pos- 
suir um compilador. 

Uma vez que seus programas te- 
nham sido compilados neste código, 
serão processados, em média, dez ve- 
zes mais rapidamente do que no Basic. 

O CBASIC “Floating Point” (ponto 
flutuante) permite a você determinar 
em qual endereço da memória deve si- 
tuar-se o código compilado. 

A vantagem deste compilador é que, 
após a compilação, seu programa Ba- 
sic permanece na memória para even- 
tuais correções, evitando a necessida- 
de de ter que recarregá-lo. E permitido 
também compilar sub-rotinas. 

O CBASIC FP é comercializado em 
duas versões: 16k e 4&. O de 16k tam- 
bém pode ser “rodado” em um TK- 
90X de 4&. 

Seu uso. é bastante simples, basta 
digitar ou carregar seu programa Basic 


“Figura 1 
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a ser compilado. Feito isto, digite 
RAND USR 59300 (para 48k) ou 26600 
(para 16k). 

Enquanto o compilador passa pelo 
seu programa, várias mensagens serão 
exibidas. Algumas destas são: 


. endereço inicial; 

endereço final; 

fim variáveis; 

erro/sem erros. 
Após a compilação, seu programa 
Basic permanece na memória. 

As matrizes alfanuméricas utilizadas 
só podem ser unidimensionais, as 
Strings são totalmente flexíveis e po- 
dem ter qualquer comprimento não 
sendo limitado como no Basic. O CBA- 
SIC FP pode manipular todas as fun- 
ções, inclusive SIN, COS, ATN, etc. 

O mapeamento do CBASIC FP, na 
memória de seu TK-90X, é realizado 
conforme ilustra a figura 1. O progra- 
ma compilado é sempre carregado na 
RAM, de modo que possa rodar um 
byte acima da RAMTOP. O CBASIC 
deve estar na memória quando o códi- 
go é requisitado para rodar o progra- 
ma em Linguagem de Máquina, pois o 
código compilado usa “rotinas run-ti- 
me” (por tempo) no compilador. 

Este programa está sendo comercia- 
lizado em fita cassete, e pode ser en- 
contrado nos revendedores autoriza- 
dos da Microdigital Eletrônica, em São 
Paulo. Entre eles estão: Mesbla, Fo- 
tóptica, Mappin e outros. E 
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RESENHA DE SOFTWARE 


Se o seu fraco é a Matemática, ou 
melhor, as Funções Matemáticas, a 
Multisoft Informática Ltda. adaptou 
para os estudantes o programa Fun- 
ções que roda em micros da linha TK 
90X de 16k e 4&. 

O desenvolvimento deste software 
foi feito em Basic com rotinas de cál- 
culo em Assembly, para agilizar o seu 
processamento. A utilização deste pro- 
grama não requer do usuário um co- 
nhecimento profundo em funções, 


Funções 


pois o programa é totalmente auto-ex- 
plicativo. 

Ão se carregar o programa na me- 
mória, ele entrará rodando e surgirá na 
tela a palavra “funções” em alta-reso- 
lução e após isso, começa automatica- 
mente o programa. 


Divisões do Programia 


Dividido em menus, o programa ofe- 
rece zeros, derivadas, máximos, míni- 


Paulo Panagiotis Alvanos 


mos, gráficos e áreas das funções de- 
sejadas. O acompanhamento não é 
difícil, pois sua própria explicação pula 
passo a passo, dando exemplos de 
funções e formas sob as quais o usuá- 
rio deve operar. 


Não existe manual para este softwa- 
re, apenas um folheto que indica as 
formas de funções que o programa 
aceita e a respeito de sua auto-expli- 
cação. E 


Como Colaborar com a 


MICRO 


Vocês sabem: O trabalho executado 
pela Microhobby conta muito com o 
apoio de seus leitores. Seus principais 
colaboradores são vocês, que nos lêem 
todos os meses e têm-se mantido leais 
desde o seu início. 

Sabendo disto, a Revista dedica boa 
parte de suas páginas aos trabalhos rea- 
lizados pelos usuários do Apple, 
TK-2000, TK-85, e o mais recente 
TK-90X. Pensando nisto foi que estipu- 
lamos algumas regras para podermos 
atender, da melhor forma possível, as co- 
laborações enviadas por nossos leitores. 

Desta forma, aqui estão algumas ob- 
servações à vocês que desejam enviar 
seus programas, para análise de nossa 
Redação: 


1 - Envie o texto referente ao progra- 
ma, explicando todas as fases de sua es- 
truturação, principalmente naqueles as- 
pectos onde vocês acham que possa re- 
dundar em dúvidas para outros usuários. 
Este texto deve ser datilografado. 


2 - Envie fita gravada, duas vezes, ou 
disquete (quando o programa for do 
TK-2000 ou Apple). 


3 - Envie, junto com o material acima, 
carta - de autorização para posterior pu- 
blicação (no caso do programa ser apro- 
vado). Nesta carta devem constar tam- 
bém nome completo, endereço e telefo- 
ne para contato, além dos dados pes- 
soais como: RG e CIC. 





No caso de aprovação dos artigos téc- 
nicos e/ou programação, os colaborado- 
res serão comunicados sobre sua poste- 
rior publicação via-carta ou telefone. 

As colaborações serão remuneradas 
de acordo com os parâmetros estipula- 
dos pela Redação como: nível de estru- 
turação lógica; recursos utilizados em 
Basic ou Assembly; nível de aplicabilida- 
de e interesse para o leitor, o texto- 
explicativo enviado e, principalmente, a 
criatividade empenhada no desenvolvi- 
mento do programa. 

Esperamos as colaborações! 


A editora. 
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RESENHA DE SOFTWARE 
Editor Basic para o TK-2000 


Este programa, desenvolvido pela 
Multisoft Informática, é destinado a 
acrescentar recursos de edição ao TK- 
2000 Color. Por intermédio deste soft- 
ware, O usuário poderá corrigir as li- 
nhas do programa previamente inseri- 
das na memória do equipamento. 

Para efetuar qualquer alteração nas 
linhas do programa, basta listá-las, uti- 
lizando-se das seguintes teclas de con- 
trole: CTRL Zell, J, K, M, alcançando 
o local a ser modificado e finalmente 
entrar com os dados. 

Em outras palavras, Editor é um pro- 
grama em Linguagem de Máquina com 
a função de auxiliar nos trabalhos de 
edição, em programação Basic. 

Como Carregar o Programa 


Você deverá carregar o programa 
utilizando-se do Modo Monitor. Para 


Sapatas — Um programa de 


Este software, destinado aos micros 
TK-2000, calcula sapatas de concreto 
armado sendo, portanto, específico 
para o emprego na área de Engenharia 
Civil. 

O programa manipula algumas infor- 
mações acerca do pilar, do concreto e 
do solo, fornecendo resultados por 
uma interessante representação da fi- 
gura da sapata em perspectiva. 

Após a carga do programa, o vídeo 
mostra o quadro de apresentação. 
Sendo assim, o usuário deverá pressio- 


entrar no Modo Monitor, a partir do 
Basic, digite LM" e RETURN. Então o 
simbolo de arroba aparecerá na tela, 
em seguida digite 'R”, que possibilitará 
a leitura da fita. Ao iniciar a carga da 
fita, surgirá a seguinte mensagem na 
tela: 


“EDITOR 0100 WAIT” 

Após alguns segundos, será emitido 
um BEEP e a mensagem passará a ser: 

“EDITOR 0101 WAIT” 

Mais um BEEP será emitido e depois 
de alguns instantes a tela começará a 
ser preenchida por riscos horizontais. 

O final da leitura será indicado por 
um terceiro BEEP. Sendo assim, a tela 
será limpa e o cursor aparecerá no can- 
to superior esquerdo. A carga do EDI- 
TOR não altera programas em Basic, 
existentes na memória. 


nar qualquer tecla, para que apareça o 
quadro de dados da sapata. 

Logo em seguida, o programa solici- 
tará o fornecimento dos valores neces- 
sários para o cálculo da construção. As 
faixas de validade de cada dado esta- 
rão expostas na tabela 2. Desta for- 
ma, forneça o primeiro valor. No caso 
de erro, durante a digitação, use a te- 
claé«->para apagar os caracteres e de- 
pois acione a tecla<RETURN>. 

Ao final desta operação, depois de 
fornecido o último valor, aparecerá 


Tabelas dos códigos utilizados e das correspondentes unidades de medida 


Significado 


Tensão de Ruptura do Concreto 


Taxa do Solo 
Lados do Pilar 
Carga do Pilar 


Lados da Sapata 
Altura da Sapata 


Altura Auxiliar 


Armadura 22 direção À ou C 
Armadura 2º direção B ou D 
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Unidade 


Kg/cm? 
Kg/cm? 
cm 
Toneladas 
cm 

cm 

cm 

cm 

cm 


| TABELA 2 
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Modo de Operação 


O processo adotado para edição é 
do tipo TELA, exigindo que o texto a 
ser editado esteja no vídeo. 

A edição é feita em duas etapas: 

1. deve-se mover o cursor até a linha a 
ser editada, utilizando as teclas de 
“movimentação neutra”. ? 
2. deve-se “digitar”, com as teclas de 
“movimentação horizontal”, ao 
mesmo tempo que se corrige o texto 
existente. 

O Editor Basic, além de corrigir tex- 
tos, também “copia textos”, “insere 
textos” e executa outras funções. Pa- 
ra se obter maiores detalhes sobre es- 
tas funções citadas, basta dar uma li- 
da no manual de instruções que acom- 
panha a fita, onde este apresenta um 
texto de fácil entendimento. E 


Engenharia 


Marcos Lorenzi 


uma mensagem na tela, a qual você 
poderá aceitar ou não. 

No caso dos valores fornecidos, por 
você, serem insuficientes, haverá um 
alerta do programa e estes serão elimi- 
nados, devendo ser substituídos por 
outros. 

O programa fornece ainda, ao usuá- 
rio, a opção de fazer alterações em al- 
gum valor caso deseje, ao final da ope- 
ração. 

Havendo desproporcionalidade nos 
valores colocados, ocorrerá uma men- 
sagem de erro. Neste caso, Oo progra- 
ma retorna ao quadro de apresenta- 
ção. 

Abaixo fornecemos uma tabela 
exemplo dos dados utilizados no pro- 
grama para o cálculo das sapatas: 


1— F = 100a 300 2-—-S=0.1a10 
3-—-A=1a999 4-B=1a999 
5B—P=1a9999 6— C = 1a 2000 


7—D=1a2000 


Arquivos 


Aqui você tem acesso a um bom aplicativo 
para guardar a sua coleção de fitas. 


Se você for do tipo que coleciona fitas de programas 
mas não sabe em que condições está a sua coleção, chegou 
a hora de montar um arquivo mais organizado. Com o auxí- 
lio de um TK 90X, toda essa bagunça será deixada de lado. 
Este utilitário pode ser “rodado” no TK 90X de 16K ou 4&K, 
bastando para isso cadastrar as informações que mais lhe 
interessam e dessa forma você passará a ter ajuda para or- 
ganizar sua própria biblioteca. 
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A digitação do programa é simples, basta seguir Os pro- 
cedimentos habituais que o usuário normalmente segue. 


O programa é composto de um Menu Principal que 
possui sete itens. Todos os itens são auto-explicativos, não 
trazendo dificuldade para seu entendimento. 


Com este utilitário não será permitido desculpas do 
tipo: “minha coleção está bagunçada””. 
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APLICAÇÕES DO MICRO 


Um TK na Engenharia Florestal 


Imagine um pequeno Spectrum fa- 
zendo a avaliação de um grande pro- 
jeto de engenharia florestal e fornecen- 
do toda a sua projeção financeira, en- 
volvendo custos, investimento neces- 
sário e aplicabilidade durante o espaço 
de tempo necessário para sua execu- 
ção. Este tipo de aplicação é mais uma 
das várias experimentações que vêm 
sendo feita pelos usuários brasileiros 
de computadores pessoais. No nosso 
caso, o autor da inovação é um jovem 
professor da Faculdade de Engenharia 
Florestal da Universidade de São Pau- 
lo em seu campus, na cidade de Pira- 
cicaba. 

Luiz Carlos Estraviz Rodriguez é pro- 
fessor auxiliar do departamento de Sil- 
vicultura e no último semestre de 85, 
utilizou o pequeno TK 90 X em suas 
aulas de Economia de recursos flores- 
tais e Política, legislação e administra- 
ção pública. 

Trabalhando há aproximadamente 
um ano com o pequeno TK, Luiz Car- 
los já desenvolveu vários programas, 
na maioria aplicativos e educacionais. 
Os que mereceram maior atenção por 
parte de seus alunos foram o progra- 
ma de gráficos e o que efetua a análise 
financeira de um projeto. 

Das principais dificuldades encontra- 
das com o equipamento, Estraviz cita 
apenas à referente ao defeito encon- 
trado no micro, logo no início. “O pro- 
blema localizava-se na entrada de vi- 
deo”, disse ele. 
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Superadas as dificuldades, Luiz Car- 
los adotou o TK-90 X em suas aulas 
práticas. 


Primeira experiência: 
um programa de gráficos 


Um programa de gráficos utilizado 
nas aulas de Economia foi o primeiro 
trabalho feito pelo professor: “através 
deste programa, os alunos podiam vi- 
sualizar a curva de produção de um de- 
terminado projeto, analisando o fator 
de produção ou a mão-de-obra dispo- 
nível, pela quantidade produzida”. 
“Gráficos”, conforme ilustrou Estraviz, 
fornece ao seu usuário, através de uma 
equação matemática, uma curva-gráfi- 
ca que permite-lhe estudar as funções 
matemáticas através da mesma, po- 
dendo optar ainda, por limitações de 
tamanho. 


Este primeiro programa oferece tam- 
bém Menus, que possibilitam a esco- 
lha de determinadas funções matemá- 
ticas como, por exemplo, SIN X * COS 
Y, compreendidas entre dois interva- 
los (um positivo e outro negativo), às 
quais o usuário pode, posteriormente, 
traçar sua respectiva representação 
gráfica. 


No final, o programa pergunta se o 
usuário deseja recomeçar com a mes- 
ma opção escolhida por ele, ou se de- 
seja mudar a sua função. 


Ana Lúcia de Alcântara 


Para O professor, o programa “Grá- 
ficos” é um valioso instrumento didá- 
tico, bastante útil na Matemática de 
segundo grau. 

Luiz Carlos em suas experimenta- 
ções com o TK-90 X tem usado, além 
dos aplicativos, os famosos jogos. Um 
destes jogos é o Pac-Man, que Carlos 
alterou em alguns aspectos e que tem 
sido bastante útil em suas horas vagas. 


O micro num projeto florestal 


Mas, o maior destaque de suas ex- 
perimentações tem sido, com certeza, 
o programa de Avaliação de Projetos. 
Ainda em fase de conclusão, este pro- 
grama, segundo Estraviz Rodriguez, 
fornece todas as informações necessá- 
rias para o engenheiro determinar a 
viabilidade ou não de determinado pro- 
jeto. 

No momento, conforme ressaltou o 
professor da USP, falta acrescentar 
mais opções de escolha nos Menus e 
melhorar a apresentação visual do pro- 
grama. 

“Avaliação de Projetos” efetua a 
análise financeira de um projeto de sil- 
vicultura (ciência que tem como obje- 
tivo o estudo e a exploração de flores- 
tas) em um determinado período de 
tempo, pré-estipulado, partindo de um 
investimento inicial, baseado em cus- 
tos anuais ou não, a partir do ano zero 
ou do momento em que se comprou a 
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terra, passando posteriormente, para a 
fase de instalação da cultura no campo 
(por exemplo, o milho). 

Para apresentar sua criação, O pro- 
fessor deu-nos o exemplo de um proje- 
to a ser implantado em cinco anos e 
disse: “digamos que, à primeira vista, 
um determinado projeto pareça inte- 
ressante. Mas, como provar que, apli- 
cando 200 ORTNs hoje, na implanta- 
ção de uma cultura, ela fornecerá re- 
torno daqui há cinco anos?”, indagou, 
acrescentando: “para que possamos 
ter acesso a estes dados, a variável ju- 
ros reais tem que ser inserida nesta 
análise juntamente com o aspecto tem- 
poral de desvalorização do dinheiro”. 

Considerando estes aspectos, Luiz 
Carlos introduziu dois setores de análi- 
se em seu programa. No primeiro, o 
computador dá ao usuário a quantida- 
de de anos prováveis para que o inves- 
tidor recupere o dinheiro aplicado na 
execução do projeto. Para conseguir 
estes dados o investidor usará, de 


acordo com o criador do programa, 
uma fórmula onde se insere o investi- 
mento, a receita e a quantidade de 
anos. 

O segundo critério adotado no pro- 
grama foi denominado Taxa de Retor- 
no Simples. Neste, o usuário tem aces- 
so à porcentagem de retorno de seu in- 
vestimento, logo no primeiro ano. 

Para incrementar seu programa 
“mais famoso”, Rodriguez acrescen- 
tou também outros critérios de avalia- 
cão como: o valor líquido presente, 
que dá a previsão futura do caixa exis- 
tente no presente. 

“O programa fornece as receitas de 
cada ano, levando-se em conta o in- 
vestimento inicial”, explainou. 

No critério de relação custo/benefi- 
cio, o programa elabora a somatória 
dos custos, comparando com as recei- 
tas obtidas (ou os benefícios) à uma ta- 
xa de juros determinada, e oferece ao 
investidor, a viabilidade ou não do seu 
projeto na época de sua conclusão. 


Este programa apresenta inúmeros 
recursos e o que mais o caracteriza é o 
detalhe dele não possuir instruções em 
Linguagem de Máquina, pois foi todo 
ele, segundo seu criador, desenvolvi- 
do em Basic. 

Estraviz Rodriguez faz questão de 
afirmar que seu programa não está 
concluído, pois, entre os critérios de 
avaliação existentes, ele pretende ain- 
da acrescentar outros como: a variável 
“valor esperado da terra” (qual a me- 
lhor área de solo para a implantação do 
projeto) e a “até que ponto posso pe- 
gar um hectare de terra para implan- 
tar o projeto, à uma determinada taxa 
de juros”, ilustrou o professor. 

Atualmente, o maior desejo de Ro- 
driguez tem sido a aquisição de uma 
impressora pois, conforme explicou, 
ela lhe possibilitará um maior dimen- 
sionamento de seu trabalho: 

“O que mais atrapalha no desen- 
volvimento de meus programas é a 
gravação em fita cassete”. 












MAGNODATA 


mforméticao kda 


CIBERTRON 





Simulador de Vôo, Pinball 
& Pac-man, Túmulo do Drácula & Froger. 
Programas e instruções totalmente em português. Preço unitário dos jogos Cr$ 48.400. 
Simulador de Vôo (analisado na MICROHOBBY nº 26) Cr$ 59.300. 


APLICATIVOS TK 90X 


O ARTISTA - Excelente programa destinado a geração de gráficos incluindo: Ampliação; 
rotação; espelho; espessura variável de pincel; 
mais. Acompanha manual detalhado. 

CONTROLE DE ESTOQUE - Permite controlar de modo efetivo o estoque de até 900 itens 
incluindo especificação, número dé peças, você poderá registrar o fornecedor, 
e número mínimo de peças para recomposição do estoque. 

Os programas O ARTISTA e CONTROLE DE ESTOQUE estão gravados em fita K-/ acondi- 
cionadas em luxuoso estojo plástico. 


JOGOS TK 90X 


& Space 


Invaders, Meteor Storm & Míssil, 








pincéis com padrões variados; e muito 


preço 


Preço unitário Cr$ 99.900. 








Campo Minado 


UTILITARIOS TK 2000 
ROM 2000 & Disk-7, Graphs 2000. Preço unitário dos utilitários Cr$ 59.300. 


JOS OS TK Z0OOUQU 


Xadrez & Out Post, Space Eggs, Grand Prix & Asteroids, Gammagoblins & Galaxians, 
Falcons, Eliminator, Ceiling Zero, Bolo, Simulador de Vôo. 
Preço unitário dos jogos Cr$ 48.400. Simulador de vôo Cr$ 59.300. 





| 





Para receber os programas envie cheque nominal cruzado à CIBERTRON ELETRÔNICA 
LTDA - Caixa Postal 17.005 - CEP 02399 - SP. Remessas em 5 dias úteis. 
Revendedores autorizados: 


Jumbo Agric SANDIZ 





O ElBERTADI 
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Criando Um Indice AHabético-lll 


Estamos apresentando nesta edição 
a terceira e última parte do sistema de 
Agenda Telefônica. 

Com estes dois programas, que aqui 
estão, encerramos as opções apresen- 
tadas no menu principal do sistema. 
São as chamadas Pesquisas Gerais e 
Aniversariantes. 

À esta altura dos acontecimentos es- 
tamos pressupondo que você já pos- 
sua, gravado em disco, as duas partes 
anteriores do sistema, que foram for- 
necidas nas edições número 25 e 26, 
respectivamente. Se você já as possui 
siga em frente com a leitura do artigo e 
posterior entrada do programa, toman- 
do o devido cuidado de digitação. Não 
se esqueça de colocar a linha 265, 
que é responsável pelo DiIMensiona- 
mento das matrizes que o programa 
utiliza, e também de carregar as partes 
já digitadas antes de começar esta 
nova. 


O programa 


Estando no menu principal do siste- 
ma, escolha a opção de número 5. Fei- 
to isto o programa será desviado para a 
linha 5000, onde tem início o bloco res- 
ponsável pelas Pesquisas Gerais. Logo 
em seguida, será apresentada uma te- 
la contendo todos os campos do arqui- 
vo de dados (AGENDA/DADOS.TXT), 
seguida de uma pergunta. Digitando o 
número correspondente à escolha, o 
programa perguntará pelo identifica- 
dor da pesquisa (ID$). A partir deste, o 
programa iniciará uma pesquisa se- 
quencial no arquivo, procurando en- 
contrar todos os registros que pos- 
suam o campo pesquisado, igual ao 
identificador. A medida que um regis- 
tro é encontrado, o programa adiciona 
1 à variável NR (número de registros) e 
salva o número do registro em questão 
na matriz de registros encontrados (RZ 
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(NR) ). Deste modo, terminada a bus- 
ca em todo o arquivo, a matriz referi- 
da conterá todos os números dos NR 
registros encontrados, podendo apre- 
sentá-los na tela, posteriormente. 

Na apresentação dos registros en- 
contrados, a tela montada possui no 
canto superior direito duas indicações: 
TOTAL ZE(nn) e ATUAL (nn). 

O número total representa quantos 
registros do arquivo foram encontra- 
dos com aquele identificador comum, 
enquanto que o número ATUAL repre- 
senta a posição relativa do registro que 
está sendo mostrado em relação ao to- 
tal. Esta posição pode ser alterada atra- 
vés das teclas de controle “—»” e 
“«—”, que incrementam e decremen- 
tam o número atual, respectivamente. 

Como observação final, convém 
lembrar o método utilizado para esta- 
belecer a igualdade dos campos na 
procura. Um campo será considerado 
igual ao identificador, quando este 
possuir pelo menos o número LEN 
(IDS) de caracteres iguais ao identifi- 
cador (linha 5220). Desta maneira, se 
quisermos encontrar todas as pessoas 
que possuam o prefixo de telefone 521, 
por exemplo, deveremos escolher o 
campo TELEFONE para a pesquisa, e 
fornecer 521 como identificador. O pro- 
grama mostrará todos os registros que 
possuam o campo TELEFONE na for- 
ma 521-XXXX. 

O bloco que começa na linha 6000 é 
responsável pela apresentação dos 
Aniversariantes de um determinado in- 
tervalo do ano. 

Ão entrar com os limites, certifique- 
se de estar entrando com um intervalo 
lógico, ou seja, limite inicial menor ou 
igual ao limite final. Caso isto não seja 
obedecido, uma mensagem de erro se- 
rá enviada e você terá chance de reen- 
trar o dado. 

Aqui também é realizada uma pes- 


Cesar de Afonseca e Silva Neto 
e Wilson José Tucci 


quisa ao arquivo, a fim de encontrar os 
registros que possuam a data de ani- 
versário pertencente ao intervalo for- 
necido. À medida que vão sendo en- 
contrados os dados referentes ao NO- 
ME, DATA e CHAVE DE PROCURA 
são armazenadas nas matrizes NO- 
MES( ), DTS () E CODS (), respectiva- 
mente. Logo em seguida, os valores 
encontrados são apresentados 12 a 12, 
por página. 

Como observação gostaria de dizer 
que esta função, ANIVERSARIAN- 
TES, pode ser de grande utilidade no 
caso de você esquecer alguma chave 
de procura, o que tornaria o registro 
quase que inacessível. Neste caso, O 
problema seria resolvido através de 
uma pesquisa de aniversariantes com o 
limite total, ou seja, de 01/01 a 31/12. 
Ássim, o nome, a data de nascimento 
e o código (chave de procura) de todos 
os integrantes da agenda seriam apre- 
sentados. 

Bom proveito! 


Variáveis Utilizadas 


Pesquisas Gerais 


FUNÇÃO 





















IDS identificador 

a contador (atual) 

RX registro a ser lido 

RZ( |) matriz dos registros encontrados 
NR número de registros encontrados 











ANIVERSARIANTES 
var |runção 
L1 


limite inicial 

limite final 

valor encontrado 

número de registros encontrados 
contador de página 

número de linhas por página 













TP total de páginas 
DT$S( ) matriz de datas 
NOMES ( ) matriz de nomes 





CODS( ) | matriz de chaves de procura 



















BEBEERER 
BERG= 





de e a 
Vara! ANE 


ELSUNLECLOINSLECZAS 









Tu nnvemsana nana 
1H NOREStSD0),LO0S( 
T ” 


000 REM PESQUISAS GERA 


5 
5010 HOME 
020 INVERSE : HTAB 8: F 
RI=fTO LEX (NS) VTA 
o: PRINT MIOS (NS,L,1); 


“ 3 coa UM CUM tA Em 
pr 


PORE 34, PECK (36) + À + 
- a 


= aj: NEX; : NORMA 


mem (Ct 
Cai 

Ls 

Pa 

-—a 

pio dm 

k Ee! RASA 
= rt 
Es 

* 

cd 

NOR 

pote 

a 

uu 

 ! 

= 


S070 VTER 23: HTAB 40: | 
NPUT “OPCAO ( 

D=FIM) =) “.0P 

080 IF OP) NCX THES P 
RINT CHARS (7 

3? GOTO 5070 

S090 IF OP = THEN 200 
5400 VTAB 5: CALL - 958 


5410 UTAB 23: HTAB 44: 1 
NUERSE : PRINT “(ESC) VOLT 
A BO MENU “3 NORMAL 

5420 UTAB 40: PRINT “PES 
QUISA POR “4N 

CS(0P) 

5430 VTAR 42º PRINT “IDE 
ITIFICADOR”; SPC( 2)24 = 1 
2H = PEEK (26) + ist = 
L 

(0P): GOSUB 45800 

5440 IF QUIT THEN 5900 
50 JF PS =" THEN 549 


15 


5460 IDS = P$: REM IDENT 
IFICADOR 

5470 REM REALIZAR PROCU 
RA 

S480 PRINT D5:70PEN“.ARO 


(A 


| SS AHEAD A RNAD 
— ENO ANO OESP ot 
JRLBLAISASADRSGRLESIDSASA: 


OI NY NA NV 
= 


Ge” 1º. TRÃ 

5490 FORR=4 TON 
S200 PRINT DS:“READ ARG 
Ga! RºsREGLIR 

) 

520 FORI=4 TONCKI 
NPUT DCS(1): NEXT 

5220 IF 1D5= LEFTS (DE 
G(0P), LEN (1 

DE) THEN NR = NR + LIRZ 
NR) = RE 

BX(R) 

5290 NEXT 

5240 PRINT DS: REM NAO 
FECHA ARQUIVO 


eso Ci = |: GOTO 5330 


ELA CONTROLE DE CO 


el GET AGIA = ASC (às 


geo) IF A =Gai THENCT=. 


Li +d 

4290 JF A=eTHENCT= 
= 
3900 IF CTA d THERCT= 
iz GOTO S2/0 


9940 JF Ã =? THENSOO 


gg IF CT > NR THEN CT 
= NR: GOT0 Se 
A 


d930 REM LER O REGISTRO 


434) RX = RZÍCT) 

3350 PRINT DS; CRESD"-AROQ 
G:0,R“:R 

3360 FORI=4 TONI 
NPUT DCS(I): NEXT 

39/70 PRINT DS 

3350 REM APRESENTAR 
3390 BSOP) = “PESQUISAS 
GERAIS” 

3400 GOSUB 15900 


H4:0 UTAB 52 HTAB 20: PR | 


INT STOTALH”: 
NR 
4420 UTAB 7: HTÃB 30: PR 
INT “ATUAL E” 
» INVERSE 2 PRINT CT: NÔ 


RAMAL 


Sá30 UTAS 23: INVERSE : 
PRINT “4-/-5M 

QUIXENTAM CAMPO --(ESC) E 
ENLC.: NORMAL 

SãáO VTAR VI 

5450 FOR I=1 TONI 
S460 HTáB HI 

S470 IF I=OPTHEN IN 
ERSE 3 PRINT 

DESCI): NORMAL 2 GOTO 549 
0 

5480 FRINT DESCI) 

5490 NEXT 

Es0o GOTO 5240 

ADDO REM ANIVERSARIANTE 
5 
S040 HOME 

So INVERSE : HTAB BE F 
08 1=4 70 LEN (N$): VTA 
B 2: PRINT MIDS (NS,1,4): 


POLL Jó, PEEK (96) + 1 + 
5 8 dl = 5) NEXT: NOGHA 
L 


á030 TAB o: HTÃB dos lh 
VERSE 5 PRINT 


FAUNTIUCDCADTANTOOEs LADMA:S 
ANTUCSSARIÂNTEO = NORMÓ! 


éudl VTÃS 7: HThE 5: PRI 
NT CERTRE À D 

ATA INICIAL 2” 

6050 VTAB fiz HTAR 13: 2 
RIBT “DATA FI 

NÃL a! 

606) V = Sã = 26:LNG = 3 
: GOSUE 15805 

6070 JF PS =" THEN 604 
É 

Stud JF MIDS (P&,3,1) « 


Ee Aa é 


> “Pe ORRI 
GTHS(PS,2) ) “42” OR LEF 
TS (P$,2 
DO PIE” OR LENCPS) ( 
) 5 THEN 
8040 
4090 LAS = PS 
AOD Lt = VAL ( MIDS (PS 
º 


Õ 
É 
Sir + VAL 
I 
0 


6i20 IF PS =" THEN 611 
130 IF MIDS (P$,9,1) « 
> “He ORRI 
GTHS(P$,2) ) “1270DR LEFT 
5 (P$,2) 
> “31º0R LEN (PG) € 55 
THEN df 
io 
6140 L25 = P5 
Sis0 12 = VAL ( MIDS (PS 
4,20) + VAL 
U MIDS (P$,4,20)) * 31 
5160 IF L2) =Lí THEN 
240 
Si70 VTAR 23: INVERSE : 
PRINT “ERRO |! 
- DATA FINAL « DATA INIC 
TÁL”": NORMAL 
5180 GET R$ 
5170 UTAB 23: CALL - B6 
g 
2200 GOTO 4440 
4240 REM RESLIZAR PROC 


| URA 


8220 PRINT DS:“OPEN”.ARQ 
Gs, Les TRE 

230 FORR=4 TON 
5240 PRINT D5:“READ”.ARQ 
Gs Rº=REGA 

ses0 FORI=4TONCZI 
PUT DOS(I): NEXT 

4250 LX = VAL ( MIDS (DC 
$(9),1,2)) + 

VAL C MIDS (DC5(9),4,2)) 
* 

Ao70 IF LXC LI ORLX) 
L2 THEN 6340 

4280 NR = NR + L:NOMES(NR 
j = DES(4) 

6290 CODS(NR) = DOS(3) 
4300 DTS(NR) = LEFTS (DC 
S(9),2) +44 | 

+ RIGTHSIGHTS(DCS(9),2) 
5M0 NEXT 
6320 PRINT DS.“CLOSE” 
4330 REM APRESENTAR 


Continua na página 35 
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Carta do Meio 


[TI] 


0/00 MR 
ITA TI TI TAI ZA E RU DT TI 
HERE 
ERR RT 
EEE AA SA DEE AT 


| CAM PENHA 
o RR ERR | 


“Carta do Meio” foi desenvolvido pelo nosso leitor, 
George Bezerra Cavalcante Leite. Este jogo é 
compatível com os micros da linha Apple e roda 


Ocupando de memória RAM, “Carta 
do Meio” desafia você a um disputado 
jogo de cartas. Mas cuidado, o desafio 
não é tão fácil e o caminho para a vitó- 
ria exige bastante de sua percepção e 
destreza. Além do mais, o jogador de- 
ve possuir conhecimento de todas as 
cartas do baralho e, é claro, pedir para 
que sua sorte o ajude. 

Prepare-se! 

O banqueiro da mesa de jogo distri- 
bul as cartas. Duas cartas abertas se- 
rão entregues a você. Em seguida, o 
jogador deverá fazer a sua aposta. 

Porém, antes de arriscar-se nas 
apostas lembre-se de um pequeno mas 
inesquecível, detalhe: o banqueiro é o 
seu TK-2000, muito mais esperto que 
você! 


Início do jogo 


Ão dar início ao jogo, você dispõe de 
cem mil cruzeiros, os quais poderão ser 
aumentados ou diminuídos, dependen- 
do de sua sorte. 

Um detalhe: o valor da aposta nunca 
poderá ultrapassar a quantia que o jo- 


1 REM 
ERR E, 
é REM 
MEIO» 
3 REM 
X 

4 REM 


HEEEKKEXAERERTE EE 


41060 DA CARTA DO 


ESCRITO 
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também no TK-2000. 


gador possui em mãos. 

Depois que a aposta for feita, O 
micro distribuirá uma terceira carta, 
que deverá ter um valor intermediário 
às duas primeiras. Se a terceira carta 
for igual à primeira ou à segunda, você 
perde, e fracassará também se ela for 
inferior à primeira ou superior à segun- 
da. 


Se você estiver temeroso e inseguro 
há a possibilidade de fugir da parada: 
basta para isto, digitar O (zero). 


Se ao contrário, você estivar com 
vontade de vencer, mas se sente mui- 
to cansado e deseja continuar o jogo, 
após um descanso, existe a opção de 
interromper a execução do programa, 
digitando qualquer número negativo. 


Tela de apresentação 


Logo de início o usuário tem à sua 
disposição uma tela de apresentação, 
que auto-explica o programa, forne- 
cendo-lhe um “caso-teste” do jogo. 
Observe na figura 1 o formato dessa 
tela. 


6 REM x GEORGE B.£. LE 


ITE * 

? REM + 
F 

10 REM * 
É 


ii REKR LEXEXEKXXXXXEZEXX 





01/11/85 


George Bezerra C. Leite 


Boa sorte, esperamos que consiga 
estourar a banca! 


Figura 1 


QUER JOGAR? (S/N) 

VOCÊ DISPÕE DE CR$ 100.000 

AS DUAS CARTAS LANÇADAS SÃO: 5 E 
REI 

FAÇA SUA APOSTA A SEGUIR: 50.000 

A TERCEIRA CARTA É: 3 

LAMENTO, MAS VOCÊ PERDEU 

VOCÊ DISPÕE DE CR$ 50.000 

AS DUAS CARTAS LANÇADAS SÃO: 2 E 
8 

FAÇA SUA APOSTA A SEGUIR: O 
ARRISQUE!!! 

AS DUAS CARTAS LANÇADAS SÃO: 2 E 
AS 

FAÇA SUA APOSTA A SEGUIR: 10000 

A TERCEIRA CARTA É: VALETE 

VOCÊ GANHOU!!! 

VOCÊ DISPÕE DE CR$ 60.000 

AS DUAS CARTAS LANÇADAS SÃO: 7 E 
VALETE 

FAÇA SUA APOSTA A SEGUIR: 60000 

A TERCEIRA É: 3 

QUE PENA! VOCÊ ESTA QUEBRADO 
QUE TAL TENTAR DE NOVO? 

QUER JOGAR? (S/N) 

TUDO BEM, FICA PARA A PRÓXIMA 


HERE 

1000 HOME 

1020 PRINT 

1030 PRINT TAB( 4);“J06 
O DA CARTA DO 

MEIOS 

1050 PRINT 








a see SO Se E ee eee eae 
at 





























1060 PRINT | 13 THEN 1420 
1070 GQ = 100000 


1080 INPUT “QUER JOGAR?( 


= já THEN 1440 











S/N)" .AS 
1090 IF LEFTS (45,1) = (350 PRINT A; | 
“Nº THEN 21480 1360 PRINT“ E“; | 
1370 GOTO 1450 
1400 FOR I=4 TOS 1380 PRINT “VALETE E 
HO PRINT”; 4390 GOTO 4450 | 
(120 NEXTI AMD PRINT DAMA E, 
1130 HOME 4440 GOTO 1450 | 
1140 PRINT “VOCE DISPÕE 1420 PRINT “REI E 
DE “0,700” 1430 GOTO 1450 
1160 GOTO 1240 1440 PRINT AS E“ 
MID G=0+H 
[180 GOTO 1100 (450 IF B (dá THEN 1500. 
190 0=0-M | 
(200 GOTO 1100 1440 IF B= 4 TEENS 
1240 PRINT “AS 2 CARTAS | | 
LANCADAS SAO: i470 JF B= 42 THEN 150 
(220 À = INT (44 * RND RS ao dos Es E doa 
(1) +32 
9 Ês = 
mo grassa | | PE SS E 
1240 IF À > 14 THEN 422 | 
doido 4500 PRINT 
- 4540 BOTO 1400 
(250 E = INT (14x RN 
es + | é 520 PRINT “VALETES 
1260 IFB (2 THENS2SO | ne ça 
o DEN | 
(270 IF B) 44 THEN 1250 E 
| A 1560 PRINT “REI” 
or y = BR TUE (o 
i280 IF à) =E THENA DO e dem 
E 1580 PRINT “AS” 
1290 IFE-A(Z GOO! (590 PRINT 
22 4600 PRINT 
1300 IF AC 44 THENSOSO 440) INPUT “FACA SUA APO 
STA A SEGUIR: | 
1340 IF A = 4 THEN 1380 
| 


IF À = 1? THEN 1400 
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DS SDS 











PRINT “ARRISQUE!!!” 





PRINT 
1660 GOTO 1210. 


IF M( = THEN 47 
PRINT TABC O); 
PRINT “LAMENTO AMIG | 
0, MAS VOCÊ” | 
1700 PRINT TAB( 8); 

í740 PRINT “NAO TEM ESSA 
GRANA TODA” 

1720 PRINT TAB( 8); 

4730 PRINT “SEU CACIFE, 
NO MOMENTO, “ 

1740 PRINT TAB BD; 
1750 PRINT “ESTA REDUZID | 
0 A CR$";05”, 

00º 

1760 GOTO 1600 

770 C= INT (14x RND 
(1) +2 

1780 SPEED= 400 

1790 IF C (2 THEN 4770 
1800 IF C) 44 THEN 4770 


(840 PRINT “A TERCEIRA Co 
ARTA Es”. 
4820 IF C (44 THEN 1870 


1830 IF C=1í THENÍB9 


1840 IF C= 42 THENA9MO 


1650 IF C=13 THENS99 


1850 IF C= 44 THENS9SO 
1870 
1880 
1890 


PRINT £ 
GOTO 1970 
PRINT CVALETE” 





1900 
1910 
1920 
1930 
1940 
1950 
1940 
1970 
1980 
1990 
30 
2000 
E 
eD10 
cuco 


2030 


2040 
2050 
2060 
2070 
2080 


ADO” 
e090 
2100 
2110 


ele 


SSD DSO SD DESC is SS O eins O sm es 


2130 
2140 
e130 
2160 
2170 
2180 
2190 


Pad 
2200 





GOTO 1970 

PRINT “DAMA” 

GOTO 1970 

PRINT “REI” 

GOTO 1970 

PRINT “AS” 

PRINT 

IF A<C THEN 1990 
6670 2030 

IFC> =B THENQZO 


PRINT “VOCE GANHOU! 


Cr 
Peas 


GOTO 117 


9PEED= 


VOCE PERDEU” 


SPEED= 255 

IF M« Q THEN 1190 
PRINT 

PRINT 

PRINT “QUE PENA! VO 


CE ESTA QUEBR 


PRINT 

PRINT 

PRINT TAB( 6): 
PRINT “QUE TAL TENT 


AR DE NOVOS 


PRINT TABÍ 8); 
PRINT * 
PRINT 

PRINT 

GOTO 4070 

HOME 


| 
| 
| 
PRINT “LAMENTO MAIS 
PRINT “TUDO BEM, FI 


LA PRA PROXIM 


END 





Livros e revistas técnicas sobre: 


e ELETRÔNICA 
e INFORMÁTICA 
e ELETROTÉCNICA 

(DATA BOOKS) 


e MANUAIS 


Solicite catálogo do seu interesse 
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Observando os Céus ll 


Este programa, desenvolvido por Antonio Carlos Gabrielli, é uma 
complementação do “Observando os Céus”, publicado em uma 
das edições da Microhobby, no primeiro semestre do ano passado. 


Antonio Carlos Gabrielli 


O programa que elaborei tem por 
finalidade a transformação da hora si- 
deral em hora solar (terrestre). Esta- 
mos em época de cometa, graças a 
qual muitos astrônomos amadores 
vêm despontando e, acredito, muitos 
permanecerão no “hobby”, vascu- 
lhando os céus e, quem sabe, trazen- 
do alguma contribuição num campo 
onde o amadorismo desempenha um 
papel importante. Criei este programa 
no primeiro semestre deste ano, pro- 
curando completar o programa “Ob- 
servando os Céus”, publicado na edi- 
ção nº 15 da Microhobby, e o estou uti- 
lizando, até o momento, sem nenhum 
problema em meu equipamento (TK- 
2000). 

Este programa publicado na seção 


Listagem 1 


Didática desta revista, de autoria de 
Antonio Fernando B. de Almeida Pra- 
do, além de bastante interessante é util 
para os astrônomos amadores ou pro- 
fissionais, pois facilita a localização dos 
planetas na abóbada celeste. Assim, 
na data indicada pelo usuário (a partir 
de 1/1/80), aquele programa fornece- 
rá duas importantes informações para 
a localização do astro desejado: a de- 
clinação e a ascensão da reta. Estes 
dados, para estrelas e constelações, 
são relativamente “fixos” e podem ser 
encontrados em livros de astronomia, 
não havendo necessidade de cálculos. 
Em qualquer dos casos, entretanto, a 
ascensão reta é fornecida em horário 
sideral, havendo necessidade de trans- 
formá-la em horário solar, o que pode 


ser feito com o auxílio de tabelas apro- 
priadas ou com um computador, desde 
que se disponha de um programa ade- 
quado. 

Na listagem 1 é apresentado um pro- 
grama completo para transformar a ho- 
ra sideral em hora terrestre (solar). Pa- 
ra facilitar a anexação ao programa 
“Observando os Céus”, foi adotada a 
numeração apresentada na listagem 1. 

Para a junção dos dois programas, 
proceda de acordo com as instruções 
abaixo: 


1 — carregue, no computador, o pro- 
grama “Observando os Céus”. 


2 — em seguida, digite a listagem 1, já 
com as modificações apresentadas na 
listagem 2. 


| 3 HOME 


4 CLEAR 
5 PRINT “CONVERSAO DE HO 
RA SIDERAL EM 

HORA SOLAR” 
3465 PRINT 
3470 Di = Dp:Há = 
380 INPUT “ENTRE COR O 
DIA: “.D2 
3490 PRINT: 
E COM O MES: 


3e/0 IF DM = THENTDs= 
DD + 31: GOTO 3380 

300 IF DM=2 THENTD = 
DD + tz GOTO 3580 

3090 IF DM=3 THENTD 
DD + 92: GOTO 35380 

3300 IF DM = 4 THEN TD 
DD + í22: GOTO 3380 

3940 IF DM =5S THENTD 
DD + 153: GOTO 3380 


Seb JF DM=4 THENTD= 


















INPUT “ENTR 


“Mo 
DD + 184: GOTO 3380 
7 5 A. 
| ae oo cad 3330 IF DM =7 THEN TD = 
a DD + 244: GOTO 3380 
+ ) = 5 
ao CO PMES | Jam tr 0H =6 THEN TO 


DD + 245: GOTO 3380 


3390 IF DK =9 THENTD= 
DD + 275: GOTO 3380 

3360 IF DM = 40 THEN TD 
= DD + 304: GOTO 3380 

3570 IF DM = 4í THENTD 
= DD + 337 
3960 NH = 


32020 Mi = Mi + 

3230 DD = D2 + 9: GOTO Gº 

30 

3240 DD = D2 - Di 
3? 90 DM = MO - Mi 

3260 IF DM = O THENTD = 
DD: GOTO 338 


À INT (CTD * SS6 
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| 3600) 

3361 NH = INT (TD x 23 
/ 60) - (NH * 
60) 

3980 NS = (TD & 
H * 3600) - é 
NM x 60) 


90 PRINT: INFUT “ENTE 
LOM À ASCEN 
5h0 RETA (HORA): “.AR 
3400 PRINT: INPUT “ENTR 
E COM À ASCEN 
5ÃO RETA (MINUTOS): “=MI 
3410 PRINT : INPUT “ENTR 
E COM À ASCEN 
SÃO RETA (SEGUNDOS): “15 
3420 IF ARC NH THEN AR 
= AR + dá 


3430 HT = AR -NH+ do 
3440 IF HT = 5 24 THEN 
HT = HT - 24 

3450 JF MI ( NM THEN MI 
=MI + 60:HT=H-1 


236) — AN 





3460 M= MI - NH 

3470" IF S (NS THENS = 

S+40M=N-1 

3480 T5 = 5 - NS 

3490 PRINT “HORA SOLAR: 

e HT HORA(S 

DE “Ms” MINUTO(S) E “47 
5.” SEBU 

NDO (5)! 

3500 INPUT “DESEJA FAZER 
NOVA CONVERS 

AO? (S/N) “AS 

300 IF AS ="S” GOTO 3 
3610 END 


Listagem 2 


790 GOTO 3165 
3180 D2 = B 
3190 MO = CL 
3390 AR = AH 
3400 MI = KS 
3410 5 = AS 
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Cálculos Financeiros 


Baseando-se no programa “Investimento Pessoal”, publicado na edição número 
24 da Microhobby, na seção Por Dentro do Apple, nosso leitor Giovanni 
Esposito desenvolveu este aplicativo de cálculo financeiro para o TK-2000. 


“Cálculo Financeiro” tem como ob- 
jetivo calcular variáveis financeiras, 
partindo de valores já conhecidos. 

As variáveis usadas são as seguin- 
tes: 

VP — Valor presente 

VF — Valor futuro 

J — Taxa de juros 

N — Número de períodos 

M — Montante de juros 

PM — Pagamento periódico 

O programa é dividido em quatro 
itens, sendo o último a opção de saída 
do programa. Os três primeiros itens se 
dividem em outros, secundários, (que 
são chamados de menus intermediá- 
rios). 

O primeiro item, “importância com- 
posta”, é subdividido em cinco op- 
ções. A primeira é chamada de “valor 
presente”. Para se efetuar o seu cál- 
culo, utilize a seguinte fórmula: 

UP = UF*(1+ JD) (—N) 

A segunda opção é o “valor futu- 
o”, para obter o valor correspondente 
usa-se a seguinte fórmula: 


UF = UP*(1 + J)' | 

A terceira opção — “numeros por 
período” — é conseguida através da 
fórmula: 


. A | [DO “ta, 


E 
1º 
il 
x: 
4 





CálCmias Cr 
NORMAL 


N = LOG (VF/VP) / 106 1 + Jd). 

A quarta opção determina a “taxa de 
juros” com o auxílio da fórmula: 

= (VF/VP) (VN) — 1 

A quinta e última opção deste pri- 
meiro item calcula, enfim, o “montan- 
te de juros” por intermédio da fórmula: 
M=VPHIMO sd) N=- 7) 

O próximo item do programa, deno- 
minado de “Poupança Periódica”, é 
subdividido em três opções. A primei- 
ra calcula o “valor futuro” através do 
uso da fórmula: 

VE = PMN *Li + dl 
(1+J)) 

A segunda opção irá determinar o 
“Pagamento periódico”, bastando pa- 
ra isto utilizar a fórmula: 

PM = AVE *B/ (1 + Jd AN + 1) — 
(1 + J)) 

A terceira opção deste segundo item 
estabelecerá o “número de períodos”. 
Para tanto, siga as dicas da fórmula: 
N = LOG (VF* J/PM + (1 + J))/ 


LOG(1 + JD) — 1 
A penúltima divisão do programa (o 


terceiro item), “empréstimo hipotéti- 
co”, oferece ao usuário seis opções. A 
primeira calcula o “valor presente”, 
definido pela variável VP, ou valor 


(N + 1) — 


AMD TE A 
RnNLE IR 





Giovanni Esposito 


atual e pode ser obtido através da fór- 
mula: 
VP=PM*((1—-(1+ JD (—N))/J) 

“Pagamento periódico” é a segunda 
opção deste item. Ele pode ser calcu- 
lado com a fórmula: 

PM =VP*(J/(1—-(1+ 9) (— N))) 

A terceira opção é denominada “nú 
meros de períodos” e sua fórmula é a 
seguinte: 

N = — LOG (1 — J*VP/PM)/ LOG 
(1 +) 

A quarta opção irá determinar a “Ta- 
xa de Juros” e a quinta, os “juros acu- 
mulados”. As suas fórmulas são, res- 
pectivamente: 

J=PM/VP-VP/(N 2*PM) 
M =SL—SK+IiL—K+1)*PM; 
N=L-K+1 

A sexta e última opção deste item 
fornece a “tabela de amortização””, cal- 
culada através da seguinte fórmula: 
SD=1/(1+J) (—-N)*(PM/J* 
((1+ JD (—N)— 1) + VP) 

Quando for rodar o programa o seu 
TK-2000 exibirá na tela o menu princi- 
pal, composto de quatro itens, os quais 
você terá que optar por um deles. 

Sucesso em suas transações comer- 
ciais! 


PRINT TAB( 4):“ESCOL 


5 PRI 
à: 1,23 08 


A 4 1 OR À 
Goto 94 

OE À 5070 200,600,90 
ERTE: Fer 


4 4 TH 
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[I ge 


e e ai Md 
HH 


OMPOSTARX* 
ci0 HOME 
dio PRINT TAB( B);“-——- 








col) INVERSE : 
AB B: PRINT” 

IMPORTANCIA COMPOSTA “ 
* NORMAL 


VTAB 2: HT 





230 TAB à: HTAB 4 

240 PRINT” PARA CALCULA 
R bo tt 
250 PRINT 

240 PRINT TAB( 9):“1-VA 
” PRESENTE” 

270 PRINT TAB( 9):“2-VA 
LOR FUTURO” 
280 PRINT TAB( 9);"3-Ni 
MERO DE PERTO 
DOS” 
290 PRINT TABC 9)s“A-TA 
XA DE JUROS” 
300 PRINT TAB( 9);75-MO 
NTANTE DE JUR 
05” 
305 PRINT TAB( 47);“ACU 
 MULADOS” 

340 PRINT: 
: 

320 PRINT TAB( 4):“ESCO 
LHas 1,2,9,4 

05”, 

330 GOSUB 5000 
340 INPUT X 
350 IFXCLORX)STH 
EN 320 
30 ON X GOSUB 500,540,5 
20,530,540 
370 GOSUB 2000 
375 VTAB 23: HTAB 1 
380 INPUT “DESEJA FAZER 
OUTRO CALCULO 

(S/N) “RS 

390 IF R$ = “5” THEN 240 





PRINT : PRIN 





400 GOTO 10 


900 VP = O:VF = fzJ= in 


HH 


mm 
200 REM *44IMPORTÂNCIA C | 
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nan ERENENA Em 1 








RE m HH o O 
E PR OGRAMAS EE Estao 


E o ue 





= GOSUB À | 
Doo 

OS VP= VP Ls De d 
- N$: RETURN 








910 VF = GiUP = fid= fin 
= 4: GOSUB À 

000 

dlo VE = VP x ti + d) | 
: RETURN | 
v20 N = QVF = div = dido 
= 4: GOSUB À 
000 
des N= LOG (VE / UP / 

LOG (1 + J): 

RETURN 
930 J= 0iVF = divP = dino 
: GOSUB É | 





nano 


o 
IM=UVPx (d+ SEN 
1) RETURN 

* 
hai REM xxxPOUANCA PERI 
ODICARHX+ 
ói0 HOME 
óis PRINT TAB( 8):”--—- 





de0 INVERSE : 
AB Gi PRINT” 

POUPANCA PERIÓDICA 
» NORMAL 


VTAB 2: HT 


425 PRINT TAB( 8),!--— 


| 
| 
| 
| 
| 
| 
| 
630 VTAB 6: HTAB 4 
640 PRINT” PARÁ CALCULA 
RSA 
650 PRINT | 
660 PRINT TABC 9):“i-VA 
LOR FUTURO” 


670 PRINT TABC 9):“2-PA 
DAMENTO PERTO 
DICO” 
680 PRINT TABC 9):“3-NUÚ 
MERO DE PERTO 
DOS” 








PRINT: 


PRINT : PRIN 


ABi 4):“ESCO 


GOSUB 5000 
720 INPUT X 
730 IFX(10RX) 
EN 700 

740 ON X GOSUB 800,540,8 
0, 

750 GOSUB 2000 

755 VTAB 23: HTAB 4 
760 INPUT “DESEJA FAZER 
OUTRO CALCULO 

(S/N) 2 0.RS 
770 TF R$ = "5º THEN 610 


70 


3 TH 





780 GOTO 40 

800 VP = O:UF = O:PH = 4: 
J=1:N= 1: GOSUB 1000 
BS VP =PH/ Ja (t+ 
VN + 1) - 

(4 + JJ): RETURN 

BIO VP = O:PM= DF =a: 
J=4N=4: GOSUB LODO 
BIS EM = (UF JD / (lis 
D+) 
= (4 + J)): RETURN 
820 VP = ON =GyF=isp 
M=1t:J]=1: GOSUB 4000 
Bos N= LOG (VE x J/ PM 
++ JD 

LOG (4 + J) - 4: RETURN 





900 REM **sEMPRESTIMO HI 
POTECARI0%%* 

pá HOME 

So PRINT TAB( 8);7--—- 


40 INVERSE : 
AB 8: PRINT“ 
 EMPRESTIMO HIPOTECARIO ” 
À NORHAL 


VTAB 2: HT 


945 PRINT TABC 8):”--— 





920 VTAB 6: HTAB 4 

25 PRINT“ PARA CALCULA 
R su 

926 PRINT 


ER TINA 
MRANSENSDA 
tt TKCIN00. = 
| BELEAIESACA ARE 

E SM 














' HH 
HH HH “aa 


930 PRINT TAB 9);MI-VA À 

LOR PRESENTE” | 
| 

os PRINT TABC 9)y!o-PA 

GAMENTO PERTO | 

DICO” | 

940 PRINT TAB( 9):/3-NU 

MERO DE PERTO 

DOS” 

945 PRINT TAB( 9);“4-TA 

XA DE JUROS” | 

950 PRINT TAB( 9);"5-JU 

ROS ACUMULADO 

ae 

955 PRINT TAB( 15);E S 

“ALDO DEVEDOR” 

| 


BELA DE AMORT 
IZAÇAO” 

ses PRINT : PRINT : PRIN 
95 PRINT TAB( 4):“ESCO 
LHas 1,2,3,4, 

5 OU é”; 

970 GOSUB 5000 

975 INPUT X | 
980 IFX<(10RX5>6 TH 
“EN 965 | 
585 ON X GOSUB 3000,3020 
,3040,3060,32 

00,3250 

990 GOSUE 2000 

993 UTAB 23: HTAB 4 

995 INPUT “DESEJA FAZE O 
Umo CALCULO( 
SANVSRS | 
99% IF R$= 5" THEN 9OS 


960 PRINT TABC 9):º6-TA 
| 
| 
| 








997 GOTO 40 | 
4000 REM ***INTRODUCAO 
DE DADOSa%% 


4001 HOME 

Do? PRINT ” INTRODUCAO 
DE DADOS ” 
1004 PRINT: 


ie IF VP = O THEN 1015 
4040 INPUT ” VALOR PRESE 


NTE = “sup 


| 

| 

| 

PRINT 

1015 


IF VF = O THEN 1025 


1020 INPUT “ VALOR FUTUR 
cmi 





















BONE OANRAE E FERROS E TIL tai 
HA A (01 015.45 FhV HAD — = dA KR ANHS E 
| SFC EC AddeREad RR RERdla ds ara 


cs il o a RS os 
| ira mm 


1030 INPUT “ PAGAMENTO P 

ERIODICO= “:P 

H 

1035 IF N=O THEN 4045 

4040 INPUT “ NUMERO DE P 

ERIODOS= “.N 

1045 IF J=0 THEN 4055 

1050 INPUT” TAXA DE JUR 

OS(VAL. DECTH 

AL)= “.] 

1055 IF K=O THEN 4065 

1040 INPUT “ MES INICIAL 

prer) Cak 

1065 IF L=0THENS075 

4070 INPUT “ MES FINAL = 

ali 

1075 RETURN 

2000 REM +%* APRESENTAC 

AO DE RESELTA 

DO xxx 

2004 HOME : UTAR 2: HTAB 

g 

2002 INVERSE : PRINT“ 
RESUL 

TADO “z NORMAL 

2003 PRINT : PRINT: PRI 

NT 

2004 IF VP = O THEN 2007 

2005 PRINT TAB( 4)-“VAL 

OR PRESENTES 

“UP 

2007 IF UF = O THEN 2015 


2010 PRINT TAB( 4); “VAL 
OR FUTURO = 

fi 

2015 IF PH = O THEN 2025 


2020 PRINT TAB( 4):“PAG 
- PERIODICO= 

“PM 

elos IF N=OTHENDZO3 

2030 PRINT TABC 4):“NUM 
« DE PERIODOS 

= Can 

e035 IF J=0 THEN 2045 

2037 JP = INT (1 +* 10000 
3) 47 400 

2040 PRINT TABC 4):“TAX 
A DE JUROS =” 


J 

elláa VUTAB 9: HTAB 29: PR 
INTO OU “e 

PAO 

e04S IF M=OTHENZOSS 

2050 PRINT TABC 4):" JUR 
OS ACUMULADOS 

= * : hM 

elos JF 1 =OTHENCDoS 
eo? PRINT: PRINT 

2060 PRINT TABC 4):“NUM 
ERO DE ITERAC 

0ES= “41 

el6s IF Sb = 0 THENO80 
e0/0 PRINT TAB( 4):"SAL 
DO DEVEDOR” 

e0/e PRINT TAB( é;:“NO 
FINAL DO MES 

cpLgl = "550 

cUB0 GOSUB 5000 

290 RETURN 

3000 VP = DiPM = did=is: 
N= |: GOSUB 

1000 

3010 VP = PMx (li -(f+ 
Jd) * 0 -N)) 
f Jjz RETURN 

3020 PM = DVP = did=d: 
N= 4: GOSUB 

1000 

3030 PH = UP x ()/ (4 - 
ETR 

N))): RETURN 

3040 N = DiVP = iiPM= 4: 
J = 1: GOSUB 

1000 

Sou N= = LOG - da 
VP / PM) / LOG (ti + dh: 
RETURN 
3060 REM CALCULO DA TAX 

A DE JUROS 
3065 REM 

ENTON 

3068 VP = f:PM= diN=odá: 

VE = 0:J=0: 

M=D:k=0O:l=0SD=õo: 
GOSUB 1 

000 

3069 REM 

VAxxx 

3070 DEF FNFC() = tí - 
Dee d-Mrfdoen 

P / PM 


P/METODO DE N 


FUNCÃO PRIMITI 


+ o+ A =N 
= SF É a 

ae 
3085 REM xxVALOR INICIá 
L DE (J)xx 
3090 J=PM/VP-UP/L 
Nº cx PM) 
3095 FOR I=1 TO 10 
3100 J=J- ENFE) / 
EN ACd) 
3410 IF ABS CFN FI) 
+ 4.0000E - O 
3 THEN 3125 
3120 NEXT I 
3120 RETURN 
3200 REM *xJUROS ACUMULA 


:s 
SL 
k = 1 


L: GOSUB 3400:5L 


M=SL-SK+(L-K 

+) x PMIN=DL-K+d: 
RETURN 
3250 REM *£TABELA DE AMO 
RTIZACAO* 
3270 VP = fiPH= fig=d: 
VF = 03N=0: 

k=0L=0 

3275 GOSUB 1000 

3285 VTAB 12: HTAB 1: PR 
INT “DIGITE O 

MES INICIAL E FINAL DE C 
ADA” 

3284 PRINT “PERIODO, SEP 
ARADOS POR VI 

REGULA.” 

3288 INVERSE : VTAB 16: 
PRINT TAB( 7 

)+“DIGITE 0,0 PARA TERMIN 
AR“. TAB( 41): NORMAL 
3290 T=1 

3295 INPUT ” MES INICIAL 
,MES FINAL “; 

MICTI,MF(T) 


TITO EIN E RI NI NATO 
HEHEHE 
LE ELEESCECEITIIA II LIICILELISLICA ICI ALA tELLI AEE IES LIT LI LEAL! 






3300 IF MICT) = O AND HF 
(T) = O THEN 

3330 

340 T=T+1 

3320 GOTO 3295 

330 T=T-1 

3335 FORX=14T0T 

3340 N = MICX) - 1: GOSUB 
3400:SI(X) = 

SD 

3345 N'= MF(X): GOSUB 340 
DISF(O) = SD 

3347 JAGO = SF(X) - SI(X 
) + (MFOO - 

MICX) + 4) * Ph 

3348 NEXT X 

3349 HOME 

3350 INVERSE : TAB 2: H 
TAB 8: PRINT 

“TABELA DE AMORTIZAÇÃO”: 
NORMAL 

3351 PRINT 

3352 PRINT “VALOR PRESEN 
TE= “;UP 

3354 PRINT “PAGAMENTO PE 
RIODICO= “;PH 


3396 PRINT “TAXA DE JURO 
= %] 

33098 PRINT 

3360 PRINT “PERIODO-JURO 
5 ACUMULADOS- 

SALDO DEVEDOR” 

3369 FORP=1T0T 

3370 PRINT TAB( 2):MI(P 
"=" ME(P)s TABC 1Í)aJA(P 
da TAB( 28)sSF(P) 

3379 NEXT P 

3390 GOTO 993 

3400 SD =1/(1+)D*( 
- N) x (PM / 

tits) *ta=N-1 
) + VP): 

RETURN 

4000 REM xxxxF IMxxx% 

4005 END 

000 COLOR 
o AT é HLIN 
32,99 AT 2: VLIN 2,39 AT 
39: HLIN 

0,39 AT 39: VLIN 2,39 AT 

0 

9001 RETURN Fei 


= 140: HLIN O 
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Cálculo Estrutural para Vigas Continuas 


O artigo que se segue apresenta um 
programa de cálculo estrutural para vi- 
gas continuas. Gostariamos de frisar, 
antes de mais nada, que trata-se de um 
programa simples, para ser tomado co- 
mo ponto de partida para o leitor de- 
senvolver dentro de suas necessida- 
des o seu próprio programa. O nosso 
resolve, por assim dizer, a parte hiper- 
estática. Fica por sua conta, caro lei- 
tor, a parte isostática, ou seja “pendu- 
rar os diagramas” 

E evidente que um programa com- 
pleto, sobre vigas contínuas, além de 
extenso, para uma publicação em re- 
vista foge aos objetivos do artigo. Já 
existem no mercado bons programas 
para vigas, a preços acessíveis. Como 
porém cada calculista tem seus pró- 
prios sistemas de trabalho, esses pro- 
gramas prontos às vezes são muito 
completos, justificando que o enge- 
nheiro estrutural tenha seu próprio pro- 
grama, mais específico, para atender 
às suas rotinas do dia-a-dia. 

Outra consideração inicial diz respei- 
to ao processo de cálculo adotado. 
Realmente a maneira mais eficiente pa- 
ra resolver estruturas, utilizando o pro- 
cessamento eletrônico, envolve a Aná- 
lise Matricial. Tanto o Método das For- 
cas (ou da Flexibilidade) como o das 
Deformações (ou da Rigidez), tratados 
matricialmente, são bem mais adequa- 
dos. 

A análise matricial das estruturas foi 
difundida na engenharia estrutural bra- 
sileira, nos últimos anos da década de 


60. Isso deixa uma grande parte de 
nossos projetistas “meio” inibida, 
quando o assunto envolve matrizes. 

Por volta de 1969, pôde-se afirmar 
que estava terminando uma geração 
formada nos artifícios de cálculo, nas 
simplificações por simetria, nos arran- 
jos de carga. Enfim, engenheiros estru- 
turais que conheciam a fundo a hi- 
perestática e sabiam “driblá-la” com 
perfeição, para, na falta de melhor fer- 
ramental, evitar um número muito 
grande de equações. 

Com a utilização, inicialmente, de 
computadores de grande porte e pos- 
teriormente, com o advento dos mi- 
cros, esses problemas perderam sua 
importância, e essa geração, em geral, 
se sentiu tolhida, ao invés de utilizar 
seus “macetes”, adequando-os às má- 
quinas o que, sem dúvida, poderia ter 
gerado um produto “hibrido””, da me- 
lhor qualidade. 

Por outro lado, o cálculo matricial, 
puro e simples, não é suficiente para 
resolver estruturas em microcomputa- 
dores. Isso porque, apesar das matri- 
zes de rigidez dos membros terem di- 
mensões reduzidas, o seu armazena- 
mento sem maiores cuidados esgota a 
capacidade de memória de qualquer 
micro. A matriz completa de uma es- 
trutura, mesmo com poucos membros, 
é muito grande para ser invertida (ou 
resolvido o sistema de equações), sem 
um adequado tratamento matemático, 
ou seja, bandas, simetrias, etc. 

Assim, os programas para cálculo 
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estrutural, matriciais exigem conheci- 
mentos profundos, além dos intrinse- 
cos das estruturas, de matemática (cál- 
culo matricial) e da memória do micro, 
para armazenar as variáveis de maneli- 
ra racional. 

Aqui foi adotado o Método das For- 
ças, ou da Flexibilidade. Conseguimos, 
com isso, um programa mais ágil, on- 
de o engenheiro estrutural poderá se 
achar com mais facilidade, para “me- 
xer” no programa, que está todo em 
Basic, operando sempre na CPU, sem 
necessitar de arquivos em drives ou 
fitas. 

Deste modo, fica mais facil para a 
“nossa turma”, na faixa dos 40, entrar 
no mérito da hiperestática, sem trau- 
mas. 

Ássim, O programa que apresenta- 
mos aqui, para vigas continuas, se pro- 
põe a ser um “esqueleto”. O leitor po- 
derá, e deverá, incrementá-lo, para 
atender às suas necessidades, ao seu 
sistema de trabalho. Poderão ser 
acrescentados balanços, engastes nos 
apoios extremos, cargas triangulares, 
com facilidade. 


Cálculo Estrutural 


Como já foi comentado acima, ado- 
tamos o Método das Forças. O progra- 
ma está todo em Basic, sendo simples 
criar novas rotinas, para incrementá-lo. 

As premissas iniciais são as seguin- 
tes: 

— 9vãos 





(0) 


Figura 1 
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Figura 2 

— até 10 cargas distribuídas por vão 

— até 10 cargas concentradas por vão 

— Saídas: Momentos e cortantes so- 
bre os apoios e reações. 

O limite de cargas por vão foi adota- 
do simplesmente, por razões práticas, 
para dispensar os “Dimensions” para 
as variáveis. | 

O processo adotado para inversão 
de matriz é simples e pode ser substi- 
tuído por outro, mais eficiente, se o lei- 
tor já possuir uma sub-rotina para isso. 
Aqui foi dispensada até mesmo a sim- 
plificação devida à simetria da matriz. 

O sistema geral seria o representado 
na figura 1. 

Pelo Método das Forças rompem-se 
os vínculos até tornar o sistema isostá- 
tico. No caso das vigas continuas, é 
mais simples articular todos os apoios 
internos. 

Esse sistema isostático é denomina- 
do Sistema Principal, sendo que cha- 
maremos de Hiperestáticos os momen- 
tos X1 sobre os apoios, equivalentes 
aos vínculos rompidos. 

Em resumo, pois não acreditamos 
ser necessário entrar mais a fundo na 
Teoria do Método, sabemos que as ro- 
tações sobre os apoios serão nulas, 
quanto ao sistema principal, aplicar- 
mos os carregamentos externos e cada 
um dos Hiperestáticos, com valor uni- 
tário. Assim, têm-se para a rotação so- 
bre o apoio 1, o seguinte: 


D1,0 + D1,2*X1 + DI,3*X3 +... 
+ D1,1*X1 =0 


Serão, deste modo, obtidas equa- 
ções similares uma para cada apoio, 
onde rompemos vínculos, tendo-se 
com isso, um sistema de equações que 





resolve o problema, fornecendo os va- 
lores dos Momentos sobre os apoios. 

As grandezas D serão sempre rota- 
ções em sistemas isostáticos, fáceis de 
serem obtidas, pela integração dos dia- 
gramas de momentos. Como o siste- 
ma principal é isostático, as rotações 
sobre cada apoio só dependem dos 
diagramas dos vãos adjacentes ao 
apoio em questão. 

As rotações provenientes da ação 
dos hiperestáticos são mais simples, 
uma vez que os diagramas são sempre 
triângulos, como se vê na figura 2. 


A rotação no apoio 1 para X1 
será: 


D 11 = (0/3*1*1*L0) + (1/3*1 
*1*LiZI) 


A rotação no apoio 1, para X2 = 1 
será: 


D1,2=(1/6*1*1*L(2))| 


As rotações no sistema principal, de- | 
vido aos carregamentos externos, po- 
dem ser obtidos também com facilida- 
de, com um simples recurso, ou seja 
superpondo os efeitos, uma vez que a 
rotação para todas as cargas externas 
será a soma das rotações devidas a ca- 
da carga, distribuída ou concentrada. 
Para o micro, é uma simples operação 
FOR-NEXT, e assim obtemos, por 
exemplo, conforme figura 3 e 4. 





1 


Figura 5 











— 4 Figura3 


VE 


QD(I,J) 


A] 
R e 4 
TP 





Ê 


Figura 4 


A combinação dos diagramas aci- 
ma, com os diagramas triangulares dos 
hiperestáticos, será efetuada por par- 
tes, para cada um dos trechos, ou se- 
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Figura 7 


ja, triângulo com triângulo, triângulo 
com trapézio, trapézio com parábola. 

As integrações de triângulo com 
triângulo, que já vimos acima, e as in- 
tegrações de triângulo com trapézio 
seriam conforme figuras 5 e 6. 






D=1/6*]*(2k1 +k2)*L 





D = 1/6*j*(kl + 2k2)*L 

Para as cargas distribuídas, além da 
integração parcial de triângulos e tra- 
pézios, teremos o trecho parabólico, 
que se integrará com um trapézio, con- 
forme figura 7. 


100 DIM RB(20) 

110 INPUT "NUMERO DE VADS :º;NV 

120 FORI=1 TON 

130 PRINT “VAO NUM, “1 

140 PRINT ºL(Is: INPUT S)="5LV( 
1) 

NEXT 1 

FOR 1 = 0 TO NV + 1:DO(I) = 

O: NEXT 

REM ENTRADA DE CARGAS 

FOR 1 = 1 TON 

PRINT “VAD NUM. “51 

INPUT "QUANTAS CARGAS CONCEN 
TRADAS?" s CC (1) 

IF CCI) = O THEN GOTO 260 

FOR 3 = 4 TO CCL) 


130 
160 


170 
180 
190 
200 


210 
220 
230 
240 
290 
260 


INPUT “P=";P(1,9) 

INPUT "X="34(1,9) 

NEXT] 

INPUT "QUANTAS CARBAS LINEAR 
DISTRIB. 2"; CD(I) 
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D = 1/6*(11*k] + 2j2 (k1 + k2) + 
3*k2) *L 


Esse procedimento, para o micro, é 
simples, pura aritmética . .. 

A matriz de flexibilidade, formada 
pelos termos Di, j é simétrica, bastan- 
do portanto calcular os termos supe- 
riores e a diagonal principal. 

Os momentos sobre os apoios serão 
os próprios hiperestáticos Xi, e para os 
cortantes e reação de apoio teremos, 
da equação geral, que um esforço 
qualquer (E) será sempre o valor do es- 
forço isostático (Eo), somado as par- 
celas dos hiperestáticos (Ei . Xi). 


270 IF CD(I) = O THEN BOTO 340 
280 FORJ=1TOCD() 
290 INPUT "BD=";0D(1,9) 
300 INPUT "Yl=";YiCI,]) 
310 INPUT "COMPR.=";BE 
320 Y2(L,D) = VICI,O) + DE 
30 NETI 
340 NEXTI 
350 REM CALCULO DOS DELTA 1,1 
340 GOSUB 970 
370 REM CALCULO DOS DELTA 1,0 
380 REM CARGAS CONCENTRADAS 
390 FORV=1 TON 
| 400 FOR E =1 TOC) 
MO A = X(U, DD: = LUC) - À 
420 IE V=1THENDOIV-1=0: 
BOTO 440 

430 DO(V = 1) = DO(V = 1) + PIV,I 
| JEA2B"3/3/LV(V)* 
2+PN,D) /6HAº24B/ 





| 
| 
| 
| 


| 
| 
| 
| 


| 
! 
| 
| 
, 


! 
| 
| 
! 
| 
| 
| 


| 
| 
| 
| 


LUI) E (24 B/ LUCY) + 1) 


CEGA TRA 
ECDSESDESRENES 
| TK-200€ | 
















E = Fo + E*Xi 


PROGRAMA 


100 a 340 — Entrada de dados 

350 a 700 — Cálculo dos termos da ma- 
triz de flexibilidade e vetor 
de carga 

710a 840 — Cálculo dos Hiperestáti- 
cos, cortantes e reações 

850 a 960 — Saídas 

sub-rotina 9/0 — Montagem da matriz 

de flexibilidade 
sub-rotina 1130 — Inversão da matriz 


BIBLIOGRAFIA 


— CURSO DE ANALISE ESTRUTU- 
RAL — José Carlos Sussekind (Edito- 
ra Globo). 

— NOTAS DE AULAS — Prof. Domi- 
cio Falcão Moreira (EPUC/RJ — 1969) 


Nota: Os autores são, respectivamen- 
te sócio-diretor e consultor da empresa 
E.C.R. Sociedade Civil de Engenharia e 
Consultoria, localizada no Rio de Ja- 
neiro, especializada no desenvolvi- 
mento de sistemas específicos para a 
área de engenharia. 


MO TF V = NY THEN DO(V) = 0: GOTO 
| 460 
450 DO(V) = DO(V) + PXV,I) E AA 
| 348/3/LUW) 4 2+PI, 
D/brAsB"Z/ LU) 
(24 A/ LV) +41) 
460 RA(V) = RA(V) + PIV,I) E B4 
LU(VISRB(V) = RB(V) + PIV,D) 
RAN) 
470 PL = PIV,I:XL = NIV,DEL sl 
| VV) 
480 RE = Pla (L-Xi)/L:RD=P 
| LAN /l 
490 REM CARGAS DISTRIBUIDAS 
500 FORI=1TOCDIV) 
Peoflagdaa, 
520 BE = Y2(V,1) = YICV,I) 
530 BT = BE + OD(V,I) 
40 DA = VICV,D): CE = LVIV) = YZ 
VD) 
550 RA =0T4 (24CE+BE /2/ 





O Sos = 08 o 


JIU ABANA 


LV(V) 

560 RB =B7+(24Ah+BE)/2/ 
LV CV) 

910 ME = RA + AA:MB = RB 4 CE 

380 MD = RA + (BE /2+hA6) -BT+ 
BE / 8 

990 IF V=1 THENDO(Y-1)=0: 

GOTO 640 


600 DA = CE“ 2/3/ LV(V) + MB 

b10 DS =NC/ bz AA 42 + (CE+ 
BE) / LV(V) + 1) 

620 Dá = (MC + (CE + BE) +24 MD 
+ (CE 42 + BE) + MB + CE) / 
b | LVIV) + BE 

630 DOIV - 1) = DO(V-1) + Dá + 
D5 + Dá 

b4O0 DI = AR*“2/3/ LVIV) E MC 

650 D2 = CE / 6 + MB + ((AA+ BE) 
E 2) LVU(V) + 1) 

660 D3 = (AA E NC+2 + MD a (AA + 
2 + BE) + MB E (AA + BEJ) / 
b | LVIV) + BE 

b70 JF V=NV THEN LET DO(V) = 
O: GOTO 490 

bBO DO(V) = DD(V) + DI + D2 + D3 

690 RAIV) = RAIV) + RASRB(V) = RB 
(V) + RB 

700 NEXT V 

710 REM CALCULO DOS BETAS 

720 FORJ=À TONV-IsBETA() = 
0 


730 FORI=1TON-1 

740 BETA(J) = BETA(J) + DO(I) + D 
1,9) 

750 NEXTI 

760 BETA(J) = - BETA(I) 

770 NEXTI 

780 FORJ=1 TON 

790 DB(J) = (BETA(J) - BETA - 1 
DD 4 LCD) 


800 RAtJ) = RÁ(J) + DBIJ)sRBIJ) = 
RB(J) - DB(J) 

BIO NEXT 

820 FORJ=1 TON +1 

830 RTtJ) = RAtJ) + RBIJ - 1) 

840 NEXT] 

890 HOME 

860 PRINT "MOMENTOS NOS APOIOS: * 


870 FORH=0O TON 

880 PRINT ºX(ºHº)="BETA(H) 

890 NEXTH 

900 PRINT: PRINT "CORTANTES E R 
EACOES NOS APOIOS:* 


Bi is cá bs dd dl a 
CE SSCRRINNSa aa anna SRD aaa SR RN A 


910 
720 


950 
740 
930 
240 
970 


980 
990 
1000 


1010 
1020 


1030 


1040 


1050 


1060 
1070 
1080 
1090 
1100 
1410 
1120 
1130 


1140 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1250 
1240 
1250 
1240 
1270 


CCC GNU GEL CD EEEEEEEEC OE EECU Ee 
“PROGRAMAS CC tue2000 É 

"Al SENSE FSFPEPIPIZU-UERRE 
st 9tsisiaivila DO GNSSESNSaaaNaSENaaaaaaGaNaGONSaaaaaSaaaaSaaNaaaS É y E! 6116) 1 0) NR 


FOR H=1T0NV+1 

PRINT "RECH - 1º)="RB(H - 1 
| BDUH = 1")=2RA(H) 

PRINT PR(H = 1º)="RT(H) 
PRINT 

NEXT H 

STOP 

REM SUBROTINA PARA DELTA 1, 
I 


FOR L=1 TONV-1 
FOR J=1 TONV-1 
IF 1 =d THEN Did) = (LUI 


D+ Luil+1))/ 3 60T0 10 
60 

IE J > NV - à THEN 1070 

IF J=1+ 1 THEND(,)) = 
LV(J) 7 6: GOTO 1060 

IF J>T+1 THEND(I,d) 
0 

IF I<J+1 THEND(I,)) = 
O: BOTO 1040 

IF I=) +14 THEND(I,d) 
D(J,D) 

NEXT J 


NEXT | 

REM INVERSÃO DA MATRIZ DOS 
DELTA 

REM SUBROTINA PARA INVERSA 
O DE MATRIZ 

PRINT 
R= Ny - 
FOR d = 
B(3,9) = 
NEXT J 


Í 
| TOR 
Í 


IF AtI,d O THEN 1270 
NEXT 1 

PRINT "MATRIZ SINGULAR” 
GOTO 1540 


FOR K=1 TOR 


1280 S = AtJ,K) 
1290 A(J,K) = ALL) 
1300 A(L,K) = S 
1310 S = BiJ,K) 
1320 B(J,K) = BtI,K) 
1330 B(L,K) = 5 


1340 


NEXT K 









Cordido dna 









1350 T=1/A(0,9) 
1360 FORK=1 TOR 

1370 AI, = TE ACI) 

1380 B(J,K) = T+ BiJ,K) 

1390 NEXT K 

1400 FORL=1 TOR 

1410 IF L =] THEN 1470 

1420 T= - AtL,d) 

1430 FORK=Í TOR 

1840 AIL,K) = AML,K) + T 4 A(I,K) 


1450 BIL,K) = B(L,KI + TE BLJ,K) 


1460 NEXT K 

1470 NEITL 

1480 NEXT 

1490 PRINT 

1500 REM 

1510 FORI=1TOR 

1520 FORJ=1TOR 

1530 LET DICI,S) = B(I,9) 
1540 NEXT 

1550 NEXT I 

1560 RETURN = 


PROTEJA 


o seu 


MICROCOMPUTADOR 


COM FILTRO DE 
LINHA 










RUÍDO ELETRICO 
INTERFERÊNCIA 
RÁDIO FREQUÊNCIA (RF) 


GIOID AN 


copie PICOS DE VOLTAGEM 


TRANSIENTES DE TENSÃO 


contra 








POTÊNCIA: ATINGE ATE 1,5 KVA 


ZENTRANX 


Rua Senador Flaquer, 376/386 
Santo Amaro — CEP 04744 
Telefone 522-2411 — Sérgio 


MICROHOBBY 33 





ARTIGOS 


Estatistica Descritiva — 


Neste artigo complementaremos o 
estudo de Estatística Descritiva, inicia- 
do na edição número 20. 

Na edição anterior conceituamos 
medidas de posição (ou tendência cen- 
tral) e medidas de dispersão. Essas me- 
didas constituem-se de métodos para 
sumarização dos dados coletados e 
são a base da Estatística Descritiva. 
Complementando essa base, teremos 
a medida e os quartis, assunto que será 
abordado neste número. 


Mediana 


A mediana é representada pelo ele- 
mento que, uma vez que a amostra es- 
teja em ordem crescente, ocupa a po- 
sição central. 

Assim, por exemplo, na amostra 2, 
3, 5, 9, 10, a mediana é representada 
pelo elemento 5. Indica-se: x = 5. 

Conforme observado, o cálculo da 
mediana é imediato se o número total 
de ocorrências na amostra for ímpar, 
ocasião em que teremos um único ele- 
mento central. 

Quando a amostra tem um número 
par de ocorrências, assume-se, para a 
mediana, o valor da média aritmética 
dos dois elementos centrais da amos- 
tra. 

Ássim, para a amostra 2, 3, 4, 6, 7, 
10 a mediana é: (4 + 6)/2 = 5, ou se- 
jaix =b5. 

Quando tivermos variáveis conti- 
nuas, não nos preocuparemos se o nú- 
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mero total de ocorrências é par ou ím- 
par. 

Adotamos o procedimento assim ca- 
racterizado: 

calcula-se a ordem n/2. A seguir, 
pela frequência acumulada, identifica- 
se a classe que contém a mediana. 
Uma vez de posse desses valores, utili- 
zaremos a fórmula: 


x“ =Imd + |(n/2— f)xH 
Fmd 
onde: 


iImd = limite inferior da classe Md; 
n = tamanho da amostra ou número 
de ocorrências; 
2 f = soma das frequências anteriores 
à classe Md; 
h = amplitude da classe Md; 
Fmd = frequência da classe Md. 
Exemplo: 

Para distribuição A, determine o va- 
lor da mediana. 


ES 
5 5 


classe Md 





Primeiro Passo: Calcula-se n/2. Co- 
mo n = 58, temos 58/2 = 29. 
Segundo Passo: Identifica-se a clas- 


se Md pela Fac. Neste caso, a classe 
Mdéas. 

Terceiro Passo: Aplica-se à fórmula. 
No caso: 
no = Bbm = BB 2 [É = 
EFmd = 18; Logo: 


17; h = 10; 


x =55 4.158/2 — 17)x 10 = 61,67 
18 


A mediana da amostra A é igual a 
61,67. 

Os quartis, ou também os chama- 
dos “juntas”, são medidas que divi- 
dem a amostra em quatro partes 
iguais. Assim: 


0% 25% 50% 75% 100% 
H-——-|-—-——- j--—-— |-—-—-— | 
01 02 03 
O1 = 1'Quartil deixa 25% dos ele- 

mentos. 


Q2 = 2'Quartil coincide com a media- 
na, deixa 50% dos elementos. 

O3 = 3 Quartil deixa 75% dos ele- 
mentos. 

Os quartis são utilizados geralmente 
para dados agrupados em classes. As 
fórmulas para a determinação dos 
quartis são semelhantes à fórmula usa- 
da para o cálculo da mediana. 

Determinação de Q1: 

Primeiro passo: calcula-se n/4; 

Segundo passo: identifica-se a clas- 
se Q1 pela Fac; 

Terceiro passo: aplica-se à fórmula. 


ARTIGOS 


Determinação de QO3 


Adotamos o mesmo procedimento 
anterior, com a diferença que no pri- 
meiro passo, ao invés de calcularmos 
n/4, calcularemos 3n/4 aplicando-o na 
fórmula. 

Exemplo: Dada a distribuição, deter- 
minar os quartis e a mediana. 


Ce Ei E 


classe 01 
classe Md 
classe 03 









Adotando o procedimento, temos: 
n/4 = 14: n/2 = 28;3n/4 = 42. 


Para Q1 temos: LO1 = 17, n = 56, 
21 =6,.h = HW, FO] = 15. 

Para x temos: LMD = 27, n = 56, 
21 = 241, h = 1, FMD = 20. 

Para O3 temos: LO3 = 37, n = 56, 


Zf =41,h = 10, FOS3 = 10. 


Continuação da listagem do 
“Criando um Índice 
Alfabético””. 


il) NOME 
Ege : Nr 4o TABID +06 
VLZ RAN: $ 

h45 


6450 


6350 IN 
LACAO DE 
ERSARIANT 
NORMAL 


an f 


MUDAM 
ENA” 
4470 
4370 VTAB 5: INVERSE 2 Pp | 6480 
RINT “DATAT:: = 
HTAB 4040: PRINT “HOME”. | | 6494 dr 
; HTAB 3 

: PRINT “CHAVE”: 


PRINT “PAGO 


ORMAL 
6500 


SE TNT Es 
His S 
ES 


PAGINA f 


NORMAL 


SET AS:A 


Logo: 


Q1 = 17 + 196/4 — 6)x 10 = 22,33 
15 


wc = 97 4 58/2—21)x10 = 30,5 
20 


03 = 37 + 13.56/4 — 41)x 10 = 38 
10 


Diante desses resultados, podemos 
afirmar que, nesta distribuição temos: 


25% 25% 25% 25% 
je = +. [icms as |--—-- |--——— | 

Fj 22,3 30,5 38 5/7 
Enfim,... 


Com este artigo fechamos a Estatis- 
tica Descritiva. Mas, algumas medidas 
poderiam ser estudadas, como os de- 
cis e os percentis. Elas dividem a amos- 
tra em 10 e 100 partes iguais, respecti- 
vamente. Porém, como não são muito 


usadas pouparemos tempo não as con- 
ceituando esmiuçadamente. 

É necessário que fique claro que a 
esfera estatística não se restringe à Es- 
tatística Descritiva. Para uma verdadei- 
ra análise estatística necessitamos nos 
aprofundar mais em nossos estudos, 
dando continuidade à esta explanação. 
Faríamos um estudo de probabilidades 
e após isto, passaríamos à inferência 
estatística. 

Mas, nosso intuito foi apenas dar 
uma pequena introdução à essa ciên- 
cia, encarada por muitos como dispen- 
sável ou inatingível, o que não é ver- 
dade. 

Aplicada ao computador, ela pode 
obter resultados fantásticos que auxi- 
liem tomadas de decisões, em qual- 
quer ramo da atividade humana. 

Particularmente, espero ter desper- 
tado interesse em nossos caros leito- 
res, para que haja continuidade ao es- 
tudo aqui iniciado. Desde já, desejo- 
lhes: Boa Sorte!!! E 


UM LUGAR IDEAL 
PARA SEU MICRO 


' 


SPMP 189 | 


MESA P/ MICROS PESSOAIS 1 
MEDIDAS:114 x 69x 71 cm. (altura) É 
SOBRE TAMPO: 114 x 31 cm. + 
ALTURA TOTAL: 97 cm 1 


MESAS ESPECIAIS PARA SEU TK 


4 


“Toda desmontável, estrutura 
de aço e tampa em fórmica” 


Consulte-nos: Temos também 


À = 2! 


InEN P = 


P+i x tP dt 
Tr): GOTO 6290 
IF À = 


6 THEN P =P 


184 Hi 


6380 P 


KT (NR | 


- áu 
.— ds 
FE 
í asso 71 GO 


6540 


Qicis 


1: GOTO 6990 
IF À = 
Dio 6450 


Representantes: Porto Alegre, Fone: 
222-3241/231-2289; Belo Horizonte, Fone: (031) 224-8589; Santos, Fone: 
35-7236; Brasília, Fone: (061) 225-6684; Goiania, Fone: (062) 225-6266/6080; 
Belém, Fone: (091) 233-2996; Salvador, Fone: 244-9311; Campinas, Fone: 


Formulários e Periféricos 


MESAS PARA 
TODOS OS MICROS 


RUA BARÃO DE JUNDIAÍ, 1.090 S/5 
JUNDIAÍ — SP — FONES: 434-6828 
434-6422 


(0512) 41-8244; Recife, Fone: 


51-2607: Limeira, Fone: (0194) 41-9900. 
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Alta-Resolução no TK-85 


Parte | 


Que tal implantar, no seu computador, um circuito que dá uma 
definição de imagem comparável a de um Apple? Parece um sonho? 
Parece, sim. Mas neste artigo, vou deixar bem claro que isto é 
possível, e a um custo incomparavelmente menor que o de um micro 


Este circuito foi criado num dos 
meus “momentos de inspiração”, em 
que senti a necessidade de mostrar que 
o pequeno TK-85 não é de todo inútil, 
como apregoavam alguns proprietários 
de micros maiores. O resultado disso 
foi um micro completamente “enve- 
nenado”, com alta-resolução gráfica (o 
tema deste artigo), gerador de som, te- 
clado (decente) e um Basic com 32 no- 
vos comandos que o tornam mais rápi- 
do e poderoso. 


O circuito 


Sabemos que a tela de vídeo dos TKs 
é composta por 24 linhas de 32 carac- 
teres. Sabemos também que cada ca- 
ractere é composto por 64 células indi- 
viduais, dispostas em uma matriz 8 por 
8, como em um tabuleiro de xadrez. 
Assim, a tela do micro já é formada por 
256 pontos horizontais (32x 8 = 256) e 
192 verticais (24x 8 = 192), num total 
de 49152 pontos. 

Por que então o TK já não vem com 
a alta-resolução funcionando? A res- 
posta está no fato de não se poder 
controlar cada um dos pontos indivi- 
dualmente, mas apenas em grandes 
blocos de 8 por 8 (ou seja, um carac- 
ter). Outro problema está relacionado 
com o armazenamento da imagem na 
memória, dada a sua complexidade. 
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que já traz este recurso. 


Armazenando uma tela 


Numa primeira análise, poderíamos 
utilizar um byte para indicar se um pon- 
to gráfico (pixel) qualquer está aceso 
ou apagado. Como temos 49152 pixels 
na tela gráfica, seriam necessários 48 
kBytes para armazenar apenas uma 
imagem, o que não seria nada interes- 
sante. Outra solução (bem mais conve- 
niente) é fazer um mapeamento por 
bits, que faz com que um único byte 
seja capaz de indicar o estado de 8 pi- 
xels e, dessa forma, a memória, neces- 
sária para uma tela plena, fica reduzida 
a 6 kBytes. Devido a problemas de 
temporização, a expansão de memória 
(ou a memória interna do TK85) não 
serve para este fim. Por isto, optou-se 
por um banco de 6 kBytes adicional 





Figura 1 — Exemplo de um caractere 
redefinido. 


Milton Maldonado Jr. 


(três chips de 2 kBytes), que ainda traz 
a vantagem de deixar os 16 kBytes li- 
vres para os programas. 


Enviando uma imagem - 


Enviar uma imagem em alta-resolu- 
ção não é uma tarefa difícil, pois o pró- 
prio gerador de vídeo original do micro 
já se presta a isto. O difícil é controlar 
este gerador, que para realizar o que 
queremos, deve ser manobrado de 
uma forma um tanto incomum. 

Em uma primeira fase, o circuito de 
alta-resolução faz o que se denomina 
“redefinição de caracteres”, ou O con- 
trole total dos pixels que formam cada 
caractere. Por este processo pode-se 
mudar a forma de qualquer caractere, 
bastando para isto alterar os bytes que 
o compõem. Um exemplo disto está 
mostrado na figura 1. 

Se redefinirmos mais de um caracte- 
re e os colocarmos lado a lado, tere- 
mos uma figura maior (figura 2). E se 
fizermos isto na tela inteira? Teremos 
então uma gigantesca figura formada 
por caracteres redefiníveis (num total 
de 768 caracteres) e se os redefinir- 
mos, convenientemente, teremos a 
nossa alta-resolução de 256 por 192. 
Para isto, entretanto, são necessários 
768 caracteres diferentes, e há somen- 
te 64 caracteres. E agora? 
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O truque é inserir 12 caracteres em 
um, ou seja, fazer com que um mesmo 
código corresponda não somente a 
um, mas a 12 caracteres, e de 64 salta- 
mos a 768. Para que isto funcione, di- 
vide-se a tela de imagem em 12 setores 
de duas linhas cada. Se imprimirmos o 
mesmo caracter na tela toda, veremos 
que nas duas primeiras linhas ele apre- 
sentará um aspecto, nas duas subse- 
quentes outro aspecto, e assim por 
diante. 


Funcionamento 


Vamos ver então como isto é feito. 
Quando o computador envia um carac- 
tere, ele consulta uma tabela de for- 
mas que indica o formato de todos os 
caracteres, sendo cada um deles repre- 
sentado por 8 bytes (64 bits). Cada by- 
te é responsável por uma linha do ca- 
ractere (não confundir com uma linha 
da tela), logo são usados 512 bytes pa- 
ra os 64 caracteres, e, conseguente- 
mente, 6144 bytes para os 768. 

O computador está preparado para 
habilitar somente 512 bytes, que são 
válidos para qualquer posição da tela. 
Tudo o que deve ser feito é chavear ta- 
belas de 512 bytes, sendo cada tabela 
responsável somente por duas linhas 
do vídeo. Este chaveamento deve ser 
feito de forma sincronizada com a ge- 
ração da imagem, e por isto não pode- 
mos contar com a CPU, que neste ins- 
tante não reconhece os comandos do 
programador. 

O circuito da figura 3 (resumido) faz 
este trabalho. O contador-1 faz uma di- 
visão de frequência, de modo que dele 
saia um pulso a cada duas linhas (16 
“rasters”) enviados à televisão. Este 
pulso incrementa o contador-2, que faz 
a troca das tabelas de caracteres atra- 
vés da manipulação das linhas A9 a 
A12, sendo que A9 e A10 fazem uma 
seleção dentro de cada chip de memó- 
ria, enquanto A11 e A12 selecionam o 
chip de memória. 

Outra parte importante do circuito é 
o multiplexador de quatro linhas (8 en- 
tradas, 4 saídas), que separa em tem- 
pos exatos as linhas A9 a A12, vindas 
da CPU, das linhas OA a QD, vindas do 
contador-2. Durante a fase em que a 





Figura 2 — Agrupamento de três caracteres redefiníveis. 


s MULTIPLEX 


QA QB QC QD 


CLOCK 


RESET 


CONTADOR-2 





MEMORIA (6) 
AS 
AIO 
AI 
A1Z 


CLOCK VÍDEO 
(15750 Hz) 


QD 


RESET 


CONTADOR-1 


CLOCK 60 Hz 


Figura 3 — Diagrama de blocos do circuito de alta-resolução. 


CPU está voltada ao programa do 
usuário (RFSH = 1), o multiplex co- 
necta as linhas A9 a Al2 às memórias, 
permitindo sua leitura (PEEK) e escrita 
(POKE). Quando a CPU está voltada à 
geração de imagens, o multiplexador 
habilita as linhas OA a QD (RFSH = 
0). 


Recursos gráficos 


O circuito é controlado por um soft- 
ware gráfico que lhe confere os se- 
guintes recursos: 

HGR: passa o sistema para o modo 
gráfico. 

TEXT: passa o sistema para o modo 
texto. 

CLEAR: apaga toda a tela gráfica. 


PLOT: acende um ponto gráfico espe- 
cificado. 
UNPLOT: apaga um ponto gráfico es- 
pecificado. 
POINT: indica o estado de um ponto 
especificado. 
DRAW: interliga dois pontos especifi- 
cados. 
COPY: faz uma cópia gráfica na im- 
pressora. 

Na próxima edição passaremos à 
montagem eletrônica do circuito. Até 
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CLUBE NACIONAL DOS USUÁRIOS DO T K 


Foi pensando em você que criamos o CNTK — Clube 
Nacional dos Usuários do TK — onde o associado 
encontra o apoio e a assessoria necessária para explo- 
rar ao máximo os recursos e as ilimitadas utilidades 
de seu micro. 


QUAIS AS VANTAGENS? 


e NOVIDADES 
O CNTK oferece as novidades mais recentes em peri- 
féricos e programas, dispondo para isso de correspon- 
dentes no exterior e de uma equipe de profissionais 
de altíssimo nível. 


e PERIFÉRICOS 

O CNTK possui as mais recentes novidades do mer- 
cado, e equipamentos exclusivos, desenvolvidos no 
próprio clube, com preços reduzidos. 


e FITOTECA 

O CNTK tem uma gigantesca FITOTECA com 1000 
programas que está em constante ampliação nas áreas 
de Lazer, Exatas, Humanas e Biológicas. Receba gra- 
tuitamente uma fita gravada por mês, com até 10 pro- 
gramas de sua escolha, 


e LIVROS 


O CNTK através de convênios com as editoras, for- 


nece livros com descontos especiais. 


e SORTEIO 


O CNTK presenteia seus associados com um peri- 
férico, através de seus sorteios mensais. 


e INTERCÂMBIO DE PROGRAMAS 
Receba 2 programas a mais na sua cota mensal para 
cada programa inédito que você nos enviar. 


e DIFUSÃO POR AMIZADE 


Ganhe livros, periféricos e programas do CNTK, 
trazendo novos sócios ao Clube. 


É FÁCIL TORNAR-SE SÓCIO DO CNTK? 


Sim, para associar-se ao clube basta preencher o 
cupom abaixo e enviá-lo junto com o vale postal 
no valor de 1,5 ORTN a: 


CLUBE NACIONAL DO TK 

Cx. Postal Nº 6605 

CEP: 01051 — Agência Central 

São Paulo - SP 
e em pouco tempo você receberá em sua casa a cartei- 
rinha de sócio, as listagens dos programas, dos livros 
e dos periféricos disponíveis, o carnê de pagamento 
de manutenção mensal no valor (aproximado) de uma 
ORTN (com reajustes trimestrais) e a fita de brinde 
com cinco jogos inéditos no mercado nacional. 
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INDICAÇÃO DIFUSÃO POR AMIZADE 


EM ERRAR RECRESADEEE SD ERERES 


SÓCIO 


MEMÓRIA 


MIGRO 


cada vez melhor! 


Á revista MICROHOBBY é dedicada aos 


leitores que desejam tirar o máximo proveito 


de seu micro. 


Muitas dicas, programas e cursos numa lin- 


guagem altamente didática. 


Todo mês um mundo de informações valiosas 
tanto para os principiantes, quanto para os “ex 


perts” : 

















JOGOS — 48 Kb 


01-1 PSYTRON — destrua os invasores da 
cidade — Jogo inacreditável. 

01-2 KNIGTH LORE — Tipo médico e o 
monstro, incríveis efeitos. 

01-3 MANIC-MINER — Jogue o martelo 
contra os monstros na exploração da 
mina. 

03-3 TIME GATE -— Pilote uma sofisticada 
nave espacial. 

03-4 HUNTER KILLER -— Pilote um sub- 
marino contra alvos navais — Fantástico. 

03-5 ALCHEMIST — Seja um mago explo- 
rador de catacumbas. 

04-1 STAR TRAIL — Pilote uma nave inter- 
espacial. 

04-2 BACK-GAMON -— Jogue gamão contra 
o computador. 

04-3 MAD-MARTHA — Fuja de uma mulher 
que quer lhe atacar. 

04-4 FOOTBALL MANANGER -— Seja um 
treinador de futebol, disputando o 
campeonato inglês. 

05-3 BATTLE OF BRITAIN — Comande 
esquadrões de spitfires na 22 Grande 
Guerra. 













Prazo de entrega: 3 dias úteis. 


junto com um cheque nominal para: 


CORREIOSOFT 
Cx. Postal nº 613 





Todos os programas contém instruções detalhadas. 


Preço de cada programa: Cr$ 40.000. 
Para adquirir os programas, preencha o cupom e envie-o 


CEP 01051 - São Paulo - SP 





CORREIOSOFT 


DA EUROPA PARA VOCE FANTÁSTICOS PROGRAMAS PARA TK90OX 


06-1 CHEQUERED FLAG - Pilote um tor- 
mula 1 — Jogo tridimensional. 

06-2 MR. WIMPY — Ajude o Bar-Man a pre- 
parar as refeições. 

06-4 HUNK-BACK -- Salte os muros do cas- 
telo para salvar sua amada — Várias telas 

06-5 HARD CHEESE — Tipo come-come, 
parecido com Mr. DO. do Colevision. 


07-1 TERROR DACTIL — Fuja dos ptero- 


dáctilos após você ter caído num vale 
perdido — Bom jogo. 

07-2 FLIGTER PILOT — O melhor simula- 
dor de vôo para o TK-90X — Fantástico. 

08-1 FLIGHT SIMULATOR -— Cores e alta 
resolução neste jogo fantástico de si- 
mulação de vôo. 

08-3 FULL THROTTLE — Corra com uma 
motocicleta em vários circuitos interna- 
cionais. 

08-4 STAR SHIP ENTERPRISE — Simula 
uma espaçonave com 
mapa de vôo, avarias 
e combates espaciais. 


programa(s) 
cheque do banco 


nº 


NOME: 
END.: 


CIDADE: 





"=" coRRaiOS0ET TITO 


Quero adquirir 
o(s) seguinte(s) 











nominal à CORREIOSOFT 












JOGOS DE 16 Kb 


01-4 THRUSTA -— Entre num labirinto e 
mate os monstros — Jogo sensacional. 

05-1 JUNGLE TROUBLE — Você é um ma- 
caco numa floresta, e tenta fugir dos 
jacarés. 

10-1 TROM — Pegue diamantes nas paredes, 
mas cuidado com os interceptadores. 

10-2 STYX — Saia de um labirinto sem que 
os bichos lhe ataquem — Jogo bidimen- 
sional. 

10-3 PUSH-OFF — Você é um escaravelho 
que tenta fugir das aranhas. 

11-1 CAÇA AO TESOURO -— Labirinto tí- 
pico com algumas armadilhas. 

11-3 POCKETMAN -— Várias telas, você é 
um astronauta explorando o espaço. 

11-4 SUB SUB SUB — Recupere os tesouros 
submarinos. 


PROGRAMA VALOR 





ESTADO: ==CEP: 





POR DENTRO DO APPLE 


Este programa pode ser utilizado 
com grande eficiência sempre que for 
preciso obtermos uma relação entre 
duas grandezas quaisquer. 

Duas grandezas podem ser relacio- 
nadas de diversas maneiras, mas nem 
todas condizentes com a realidade. En- 
tende-se por “melhor ajuste” a equa- 
ção que mais se aproxima dos pontos 
obtidos, experimentalmente. O progra- 
ma está apto a fornecer cinco tipos de 
ajustes: 

1. LINEAR 

y=A+Bx 

2. EXPONENCIAL 
y = A.e% 

. LOGARÍTMICO 

y =A + BLN(x) 

POTÊNCIA 

y = A.x8 

5. HIPERBÓLICO 

y=1/(A + B.x) 


C 


ss 






00 REM sexMENlgãa 













Ai MEii) = “LINEAR Y=h+B% 
X fé 

120 MG(E) = “EXPONENCIAL  Y=âxEA 
(BOCADO 

(20 M$(3) = “LOGARITMICO Y=A+5% 
LOGEA) 

140 504) = “POTENCIA Y=hxXk 
pit 

fo ME(G) = “HIFEREOLICO  T=i/iA 
+54X3” 


160 ME(6) = “FINALIZAR” 
1760 H= 64 = Bil = ópisbo=i 
is HOME 
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Estes tipos são itens de menu do 
programa. Você poderá escolher um 
deles, entrar com os dados, analisar o 
resultado e partir para um novo tipo de 
ajuste com aqueles mesmos dados, 
por exemplo. Isto foi feito a fim de que 
você possa escolher o ajuste que me- 
lhor se adapte aos pontos fornecidos, 
através da análise do coeficiente de 
precisão R2. Quanto mais próximo de 
1, este for, melhor terá sido o ajuste. 


Vamos a um exemplo prático para 
ilustrar o funcionamento do programa. 
Suponha que uma pequena empresa 
deseja saber qual a projeção de vendas 
de um determinado produto para o ano 
de 1987, baseando-se nos dados obti- 
dos de 1977 a 1985. Neste caso teria- 
mos uma tabela como esta: 

Ano 777879 80 81 82 83 84 85 
Vendas em 


200 UTAB 4: HIRE 5 
INTÓAJUSTES 
à 5 “2 NORMAL 
0 VIâB dO: HTdB di: 
ULHA UM DOS TIPOS 

OP = 
co INVERSE : UTAB is 
INT SECO 40): VTAR 2a: 
C( 40): FOR IL =2 TO 22: 


INVERSE 2 P 
DE LURY 


PRINT “E! 


HTAB à: PR 


PRINT SP 
VTRB di 


Ajuste de Curvas 





Cesar de Afonseca e Silva Neto 


e Wilson José Tucci 


milhares de 808497 113111 118127130 135 


unidades 


Rodando o programa, entrando os 
dados e testando os diferentes tipos de 


ajuste chegamos à tabela abaixo: 


AJUSTE EQUAÇÃO R2 

Linear y = —460,5 + 7,1 0,9527 
Exponencial y = 0,50. e 9:86 0,9289 
Logarítmico y = —2402 + 571,8. inX  0,9567 
Potência y = 5,58.10 2,x 94 0,9431 


Hiperbólico y = 1/(0,061 — 6,375.1074 0,8966 


Observando a tabela, percebemos 
que o melhor ajuste foi o LOGARIÍT- 
MICO, com R?igual a 0,09567. 

Agora, a fim de obter a projeção de 
vendas para 1987 basta efetuar o ajuste 
logarítmico e digitar 3 (INTERPOLAR), 
entrando com 87 para o valor de X, que 
o programa calculará f(x) = 151,7. 

Bons ajustes! 


HTAB dz PRINT! “4 
Tt NEXT E NORMAL 


HTAB 4d: PRIN 


20 FORI=Í TOLEVTAB VAIS 
SPL( LH 


DISPa HTAB HE PRINT I. 
gti: NEXT 

coDb P= PrEK C - 1A964) 
IF PA 128 THEN 40 
FORE - 1áG46,0 

IF P= dá THEN 380 
if P= 149 THEN OU = OP:0r 
up + 4 
910 TER 


esh 
eo 
300 


THEN OU = 0P:OP 


asma 








POR DENTRO DO APPLE 


—> 


DE 4 

s20 IFP» = 

+ L THEN v = Or: 

330 IF OP: À THEN 

340 IF OP ) | THEE 
+ 


250 UTAR U + OU x DISTE HTAB 2: 
PRINT SPECH - 2):00 SEC( 1),H5 


(04). TABC am) 
340 INVERSE : UTAS VU + OP 4 DIST 
: HTAE 42 PRINT SPC H- 4)0P: 
sc 1):MECOP): TABÍ 38): NORMAL 


370 GOTO 250 
3B0 REM DESVIAR EXECULAO 


age TE Ob = - o Tuck Libano e END 


390 IF Tá = 4 THEN 4d 

400 GOSUB 16/02 REM cxiRás Dado 
5 

440 ON OP GOSUB iONU, LSD Lido 
160,1220 

420 GOTO 1270 

1000 REM AJUSTE LINEAR 

1040 À = e % dá - MA dd Ply 4 UN 
* XxX -X 

1020 E = (Ne ç - da é Ti) 4 AN 
&X - "2 

1030 RE = (Ah x yi+BxPi-Yá it 
cum ttect*ars nm 

1040 RETURN 

1050 REM AJUSTE EXPONENCIAL 
1060 AL = (lg xx -XialSo 4d 
Nx Xo-Xi* 2) 

1070 B=iNHlS-KixLó)/ EN 
dA A O gu 

uia Re = (ALxig+Bxis-lá 

ermytrc-lrrm 

1OS0 À = EXP (AL) 

1100 RETURN 

fio) A=(Yixlz-lixl4)/ 
* 2 LIS) 

1130 BD = (Nx L4-Lix ri) MN 
* L2 = ti" 2) 

1140 R$ = (Az Ti+BxLa-Yái+ 
A O A RO 

1150 RETURM 

11450 REM POTENCIA 

io AL = (Léxid- E Lo 7 

NHlg-lt*a 

11B0 B=(NxlS-lixig)/úN 

+ le-ld 

190 R2 = (dl x ló + Be ls - Lá 
*Ltmortr-6*24 

1200 à = EXP iáL) 


4 
pese 


20 RETURN 
idoo REM HIPEREGLICO 
il oh=(idxko-Ni* li; 
& de o Je * 4) 
bee iL-MEI)Z 
k e - A el 
eae Resthsid+Ba di - I2* 
mM tta-iº2rm 
RETUEM 
REM MOCTRAR RESULTADO 
PME 
ÚTRÊ ds INVERSE é PRINT HSÍ 
2): NORMA 
vihB 4: PRINT OR = “ah 
PRINT CE = “À 
UTAB 7: PRINT RO = “sk? 
SOCUE 1590 
IF Tã = 1 THEN AGO 
IF TÃ=2 THEN RUN 
IF TA + > 3 THEN Í9S0 
RES INTERPOLAR 
S206 RH = Xiliitho= Ytd) 
320 RL = Atioiyl = Yti) 
DO FORIL=ÍI0N 
FHC AtI) THEN ZH = di 


TH C filo TREN Ho o= Ytd) 
IF XL à Kid) TREN AL 


FYL O» YCI) TREM TL 


REXTI 


UTAR 403 Cáll - 958 
uTAs à: INVERSE 3 P 

NTERPOLACAO”: NORMAL 

1480 TAB 127 PRINT “X-MAXIMO 2º 

«XH,PY-MAXIMO 2”. YH: PRINT 

1490 PRINT OX-MINIMO 2º.XL,PY-HI 

NIHO 2º. YL 

is0D UTAB Lóz INPUT “ENTRE COM O 

S VALORES DE X 27;) 

S410 ON OP GOSUB 1540,1550,1560, 

[570,1580 

(520 UTAB 16: PRINT “PARA X =“ 

Ko ==)FO) = sy 

1530 SOTO 1320 

(54) Y = A+ 4X: RETURN 

[50 Y=A+ EXP (BK: RETURA 


RINT“] 


A+ 6x 106 (X) RETURN 


T=A+R* Bi RETURN 





15B0 Y=12/ (A+ 6 * XxX) RETURN 


1590 REM ESCOLHER OPCAO 
1600 UTAB 19: PRINT “DIGITE ( 2” 


PRINT TABC 3)“€1) OUTRO AU 
STE CMESKOS PONTOS)” 


1620 PRINT TABE 342) OUTRO AÍ 
USTE (NOVOS PONTOS) 

1630 PRINT TAB( 3)%(3) INTERPOL 
AR“ 

1640 UTAR 49: HTAB 93 GET TA 
1650 PRINT Tê 

i680 RETURN 

t670 REM ENTRAR PARES 

1580 HOME 

te9 UTAB 37 INVERSE : PRINT NS: 
OF): NORMAL 

1700 UTAB 5: INPUT “NUMERO DE PO 
NTOS 2“4N 

(710 DIM XENS, YEN) 

(720 FORT =Í TOM 

(730 VTAB 72 PRINT “ENTRADA “;: 
INVERSE 2 PRINT 12 NORMAL 

f740 CALL - 958 

750 INPUT “VALOR DE X =)2;X(D) 
1780 INPUT “UALOR DE Y =)"; YT) 
i770 Xi = Xi + Xi = Vi + Ve 
) 

4780 X2 = XP + XD) + au 

WD 
1790 X3 
pelo 
tE00 X4 
vn 
E LOE (X(1D) 

20 2 + LOG (XD 2 
1830 L3 = 13 + X(15 4 LOG (FUI) 


do + ALII Bira 


Rtl) * dita = 


om fc tao mora 


fgafi Fel) * LOG (XtI)) 


iB5D L& = L5 + LOG (X(Ijj* LOG 
(ED) 

1840 Lá + LOG CD) 

4876 L7 + LDE CD) 

igeD Pí + XD é Ye) 

iE90 P2 +X) * 2x Ye) 

41900 14 XD 4 (i/YD) 

1940 12 + (1/0) 

1920 1 + ti /YID) * 2 

1930 NEXT 

1240 RETURH 
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TIDATICA 


As funções e seus gráficos matemáticos 


no TK-2000 


Nesta edição estamos dando continuidade ao 
assunto abordado na edição anterior — Gráficos 
e Funções — através de um programa que roda 


Ao estudarmos os diversos fenôme- 
nos da natureza surge a necessidade 
de uma “ferramenta matemática” que 
permita a análise e o entendimento 
desses fenômenos, senão, vejamos: 
— ao estudarmos o movimento, o es- 
paço percorrido é considerado uma va- 
riável que muda em dependência da 
variação do tempo; 


Ss = espaço percorrido 





Figura 1 


— a altura de uma pessoa depende da 
idade; 





Figura 2 


— a distância que um projétil pode al- 
cançar depende do ângulo entre o ca- 
nhão e o solo. 
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tanto no TK-2000 quanto no Apple. 


Figura 3 


| 
Doo RE 

Essa “ferramenta matemática” foi 
definida, no princípio do século XVIII, 
por Jean Bernovilli e surgiu da necessi- 
dade de se examinar a variação de um 
valor em dependência da variação 
de um outro.:No decorrer da história da 
matemática, essa noção foi gradual- 
mente ampliada e completada. 

Com o aparecimento da Teoria dos 
Conjuntos, a noção de “função” ficou 
definida da seguinte maneira: 

“dados dois conjuntos A e B, cha- 
ma-se função de A em B a uma rela- 
ção entre A e B, onde a cada elemento 
de A associamos a um único elemento 


de B”. Abreviando tudo isso escreve- 
mos: 

PEA B ou utilizando diagrama 
de Venn 


Milton Rodrigues 








Figura 4 


Assim, uma função envolve três coi- 
sas: 
— um conjunto 4, chamado de domi- 
nio; um conjunto B, chamado de con- 
tra-domínio e uma “regra” ou “lei”, 
denotada por “f” pela qual nos é dito 
como associar a cada x € A a um úni- 
coye B. 

O domínio também é chamado de 
conjunto de partida e o contradomínio 
de conjunto de chegada. 


DIDÁTICA 


+ 


Conjunto 


Conjunto B de chegada 


de partida 


f leva xem x? 


Figura 5 
Tomemos um exemplo prático: 
Dados os conjuntos: A = (—2, —1, 


O, 1, 2), chamado de domínio e B = (1, 
2, 3, 4, 5), chamado de contradomínio 
e uma função definida pela seguinte 
lei: 

“A cada elemento do conjunto A as- 
sociamos ao seu quadrado em B”, sim- 
bolicamente — f(x) = x2. 


PRACA asas 






A 


(Domínio) (Contradomínio) 








Figura 6 


O que a função “flx) = x?” faz? Ve- 
jamos: 


p/x = —2temosf(—2) = (—2)2 = 4 
—>f leva —2em4 

p/x = —1temosf(—1) = (—1)2 = 1 
-—>fleva —1 em 1 

p/x = O temos f(0) = (0)2 = O —fle- 
va 0emoO0 | 

p/x = 1 temos f(1) = (1)2 = 1 —fle- 
va tem 

p/x = 2 temos f(2) = (2)? = 4 — fle- 
va Z2em4 


Podemos observar que todos os ele- 
mentos do domínio encontraram seus 
valores correspondentes no contrado- 
mínio, isto é, não sobrou nenhum ele- 
mento em A, e também, um elemento 
de A com um único em B, isto é, nun- 
ca saem duas flechas de um elemento 
de A. 





Observando novamente o diagrama, 
notamos que a função “usa” apenas 
os elementos 0, 1, 4 do contradomínio. 
A esse subconjunto do contradomínio 
chamamos conjunto-imagem da fun- 
ção. Chamamos então de imagem a 
cada elemento de B em que chega a 
flecha. 


Conjunto 


(Domínio) 


(Contradomínio) 


Figura 7 


Fica ainda mais fácil entendermos o 
que acontece se imaginarmos uma 


função de A em B como se fosse uma 


máquina que “transforma” elementos 
de A em elementos de B. 

No nosso exemplo, estamos alimen- 
tando a nossa “máquina” com os ele- 
mentos (0, 1, — 1,2, —2) e estamos re- 
colhendo, na saída, os elementos (0, 1, 
4). Os elementos que “sobraram (2, 3, 
5)” é como se já estivessem dentro da 
cesta, isto é, não foram recolhidos 
agora! 


Figura 8 





Você deve estar perguntando: — 
onde entra o microcomputador nesta 
história? Pois bem, para visualizarmos 
uma função de maneira global, nada 
melhor que analisarmos o seu gráfico 
em um sistema de coordenadas carte- 
sianas e é aí que entra o micro para nos 
dar uma “mãozinha”! Mas isto nós ve- 
remos mais para frente, por enquanto 
vamos ficar com a maneira “tradicio- 
nal” e construir o gráfico do exemplo 
anterior. 

Primeiro fazemos a tabela e depois o 
gráfico. 
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Como podemos ver, esse gráfico 
não está nada parecido com uma “pa- 
rábola”, pois os pontos estão muito es- 
paçados por causa dos valores do do- 
mínio e do conjunto imagem que fo- 
ram definidos de antemão. 

Normalmente, com o microcompu- 
tador, iremos trabalhar com valores de 
domínio e contradomínio no conjunto 
dos números reais (R), isto é, a função 
será aplicada de Rem R (f: R=—>R). 

Vamos ver o que acontece se mu- 
darmos o domínio e o contradomínio 
do nosso exemplo: A = Re B = R-—> 
f:R—R. 





Vai existir imagem? Não! V—2*é um 
número real? Não! 

Isto significa que caso o nosso do- 
mínio não esteja muito bem especifi- 
cado a função não “funcionará”. Nes- 
te caso, sabemos que não existe raíz 
de um número negativo quando traba- 
lhamos com números reais. Qual vai 
ser então o domínio de f(x) = x para 
que a função exista? 

Será o conjunto dos reais positivos 
mais o zero (D(f) = R ,). 

E qual será o contradomínio? Pode- 
mos dizer que serão sempre os reais, fi- 
cando a função definida assim—»f : À 


-< 
I 
i 
1 
| 
| 
| 
| 
Í 
1d. 


t 


| 
I 
| 
| 
| 
| 
/ | 
| 
| 
| 
| 
Í 
| 


[9%] 
C 
a 





Figura 10 


Agora sim o nosso gráfico ficou 
completo, isto por que preenchemos 
os vazios que existiam entre —2 e 2. 

Cuidado: nem sempre poderemos 
mudar ao nosso bel prazer o domínio 
de uma função. 


Campo de definição de uma função 


Chamamos de campo de definição 
de uma função ao conjunto de valores 
do domínio (abreviadamente D(f) para 
os quais a função tem condições de 
existir. Complicou? Vamos descompli- 
car. 

Digamos que temos a FIA—+B, 
dada pela seguinte lei: f(x) = Vx' Será 
que podemos dizer que o domínio da 
função serão os números reais (A = 
R)? 

Depende. Ter D(f) no campo dos 
reais implica que teoricamente devo 
pegar todos os valores em R; pois 
bem, e se pegarmos o número “* — 2” 
ou qualquer outro negativo? Teremos: 
parax = —2-> f(x) =V—2"221! 


44 MICROHOBBY 


—R, onde A(D(F)) depende da fun- 
ção. 
Pegando outro exemplo, seja f : A-> 
R definida por f(x) = 1/x. Qual o domi- 
nio? Bem, podemos colocar no lugar 
de x qualquer valor real, menos o zero, 
pois não existe divisão por zero, por- 
tanto, D(f) = R* (este asterisco signi- 
fica que estou pegando todos os reais 
menos o zero). 


Para analisarmos uma função grafi- 
camente, será necessário desenvolver- 
mos um pouco mais de teoria, e co- 
nhecermos quando uma função é cres- 
cente ou decrescente; par ou ímpar; 
composta; injetora, sobrejetora e bije- 
tora e função inversa. 


Função crescente e decrescente 
Função crescente 


Dada uma f : A—»B, e seu gráfico: 





Figura 11 


Uma f: A—» B é crescente em um 
determinado intervalo quando para 
quaisquer x, e x, deste intervalo, com 
X, > xXx, tivermosy, >y». 


Função decrescente 


Dada uma f : A-»B, e seu gráfico: 





Figura 12 


Dizemos que esta função é decres- 
cente em um determinado intervalo 
quando para quaisquer x, e x, deste in- 
tervalo, com x, > x;, tivermos y, < 


Y 2 


Resumindo: 


E errei Xi <LX2-»Y1,CY2 
Função 
decrescente-» sex, <xy-»>Y1>DY2 
Função par e função ímpar 


Função par 


Dada uma f : A—>B e seu gráfico: 


lf(x) =x2— 4 
(veja figura 13) 
Observamos que: 
p/x = —30ux = 3temosy = 5 
p/x = —20ux = 2temosy = O 
p/x =0 temosy = —4 


ou seja, para valores sistemáticos de x, 
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Figu ra 13 


temos o mesmo valor para y. Neste ca- 
so temos uma função par. 


Função impar 


Dada uma f: A—»B e seu gráfico 





Figura 14 

Observamos que: 
p/x = —2temosy = —8 
p/x = —1temosy = —1 


p/x = Otemosy = 0 

p/x = 1temosy = 1 

p/x = 2temosy = 8 

ou seja, para valores simétricos de x, 
temos valores simétricos de y. 

Neste caso temos uma função ímpar. 


Resumindo: 


Se o gráfico possuir uma simetria 
entre o primeiro e o segundo ou o ter- 
ceiro e quarto quadrantes, ou seja, f(x) 
=f(—-x)p/wy x € D(f), a função é de- 
nominada par. 


Se o gráfico possuir uma simetria 
entre o primeiro e o terceiro e o segun- 
do e quarto quadrantes, ou seja, f(x) = 
—f(x) p/ w x € D(f), a função é deno- 
minada ímpar. 


Função composta 


Dados os conjuntos: A = (0,1,2),B 
=(1,2,3eC=(2,3,4,5)e as fun- 
ções f: A->rBeg: B-—»C (g também 
pode simbolizar função) representadas 
abaixo: 





Figura 16 


Vemos que: 
f(0) = 1eg(1) = ) 


A imagem de f 
torna-se domínio 


de q. 


f(1) = 2eg9(2) = 3 
f(2) = 3eg(3) = 4 


Podemos “cortar caminho” asso- 
ciando diretamente o conjunto À com 
o conjunto C, fazendo a composição 
das funções f e g, simbolizada por gof 
(g “bola” f ou g composta com f), fi- 
cando o diagrama da seguinte forma: 


ou seja: 

(gof) (0) = 2 
(gof) (1) = 3 
(gof) (2) = 4 


Vamos imaginar duas máquinas: 

Se jogarmos x € A na entrada da 
primeira máquina, obteremos f(x) na 
saida. 

Colocando f(x) na entrada da segun- 
da máquina, teremos na saída g (f(x)). 
(Notamos que a imagem da primeira 
função passa a ser o domínio da se- 
gunda função). 

Transformaremos estas duas máqui- 
nas em uma! | 

Vejamos o exemplo: se f: A—»B é 
dada por f(x) =x + 1eg: B—»C é da- 
da por g(x) = x + 2, então gof: A—»>C 
será dada por: (gof) (x) = g(f(x)) 


g(f(x)) = g(x + 1)«- substituin- 

dofix) =x + 1 

gix+1) =x + 1 + 2<-substi- Hgof)(x) = x +3 
tuindo x + 1 no lugar de x 

x +1+2 =x + 3<-redu- 

zindo os termos semelhantes. 


= T——et 
— Dt 
fAaC) — 
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Vamos provar: (gof) (x) = x + 3 

p/x = O(gof) (x) = O + 3 = 3) Exatamente 
p/x = 1(gof) (x) = 1 + 3 = 42como a nossa 
p/x = 2(gof) (x) =2 + 3 = 5)“máquina”! 


Tipos de função 
Função injetora 


“Uma f: A >B é injetora se a cada 
elemento de B, imagem da função, 
corresponder a um único elemento de 
A, domínio da função.” 

Exemplo: 


Exemplo: 


Figura 17 


no exemplo temos: 

O € Bcorrespondea 0 € A 

1 € Bcorrespondea 1 € A 

4 € Bcorrespondea 2 € A 
Contra-exemplo: 


Contra-exemplo: 





Figura 18 


A função representada não é injeto- 
ra, pois ao elemento 4 do conjunto- 
imagem correspondem dois elementos 
do domínio. ia 


Função sobrejetora 


“Uma f : A—>B é sobrejetora se to- 
dos os elementos do contradomínio B 
são imagens de algum elemento do do- 
mínio: (Im(f) = B).” 


[Im(f) = (0,1) = 8] 


46 MICROHOBBY 








Figura 19 


Em outras palavras, o contradomínio 
e o conjunto imagem são a mesma coi- 
sa, não “sobra” nenhum elemento no 
conjunto B. 

Contra-exemplo: 


Contra-exemplo: 





Figura 20 


A função representada não é sobre- 
jetora, pois estão “sobrando” os ele- 
mentos 6, 8 no contradomínio, ou se- 
ja, Im(f) = 12,4) e o contradomínio B 
= $2,4,6,8)-»Im(f) = B. 


Função bijetora 


Uma f: A —B é bijetora se ela for, 
ao mesmo tempo, injetora e sobreje- 
tora. 


f 
amar. 
an 


Figura 21 
Função inversa 


“Dada uma função bijetora f : A-— 
B, chamaremos de função inversa de f, 
indicada por f—!, a função g : B—»A, 
tal que se f(x) = y então fly) = x, para 
quaisquerx € Aey € B.” 

Exemplo: 

dada a f : R—»R definida como f(x) 
= 2x, obter a função g:B—D A, g = 
f —!, e seus respectivos gráficos. 





Para determinarmos a f-—! fazemos: 


trocamos de posição simultaneamen- 


Y=Lx 
[x=2y] teoxcom oy 
x/2 =y| isolamos y 


e temos então a inversa procurada 
=“ 


: 


Representação gráfica 


- Eixo de Simetria 
4 


Figura 22 


Podemos observar que os gráficos 
que representam f e f —! são simétricos 
à bissetriz do primeiro e terceiro qua- 
drantes. 


Resumindo: 


Duas funções dizem-se inversas, 
quando o domínio da primeira é con- 
tradomínio da segunda, e o contrado- 
mínio da primeira é o domínio da se- 
gunda. 


Análise dos Gráficos 


Depois desse pacote de teorias, de- 
vemos estar preparados para a análise 
de gráficos e da relação entre a “fór- 
mula” de uma função e o seu respecti- 
vo gráfico. Optamos pelo último para 
analisar, pois permite uma visualização 
global do que está acontecendo. 

A construção de um gráfico é, na 
maioria das vezes, demorada e traba- 
lhosa e, nos orientando pela lei do 
menor esforço, porque não deixar esse 
trabalho para o microcomputador? 

E o que propõe este programa, onde 
nós temos várias opções de função à 
nossa disposição, bastando para isso 
entrarmos com os dados, que o pró- 
prio computador irá pedindo. 
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DIDÁTICA 


Após a digitação do programa dê 
RUN, se tudo correu bem, o programa 
irá mostrar um menu com sete opções. 

Vamos apertar a tecla 1 e entrar na 
função de primeiro grau: 

— entremos com a função f(x) = 2x 
+ 1; 

— o computador irá pedir o valor de 
<A>, isto é, o número 2 na nossa fun- 
ção, digite 2 e tecle RETURN e depois 
o valor de <B>, proceda da mesma ma- 
neira e espere, em seguida o computa- 
dor mostrará a função e pedirá que 
confirmemos se desejamos continuar 
ou não. Pressionemos a tecla S, qual- 
quer outra fará o programa voltar ao 
início, e obteremos o gráfico: 





Figura 23 


Vamos analisá-lo: 

— função crescente, pois ao aumen- 
tar o valor de x aumenta o de f(x); 

— função nem par, nem ímpar, pois 
não possui nenhuma simetria; 

— para descobrirmos se a função é bi- 
jetora podemos nos utilizar do seguinte 
artifício: tracemos, simultaneamente, 
paralelas ao eixo 0X. Se cada uma 
dessas retas cortarem a função em 
apenas um ponto, a função é injetora. 
Sabemos que a função do primeiro 
grau é definida de R em R, isto é, se o 
domínio é R, o conjunto imagem só 
pode ser R também, então Im(f) = 
contradomínio e portanto sobrejetora. 
Se é injetora e sobrejetora então é bije- 
tora. 

Concluindo, se o coeficiente numé- 
rico de x € A for positivo a função se- 
rá crescente; se negativo será decres- 
cente. Se A for zero, a função será 
chamada de constante (verifique). 

A função será impar (jamais será 
par) se B for zero (verifique) e final- 


mente toda função de primeiro grau é 
bijetora. 

Vamos apertar agora a tecla 2 e tere- 
mos uma função quadrática. Entremos 
com a função f(x) = x2 + 2x + 1 con- 
forme as instruções e teremos o gráfi- 
co: 


Figura 24 


Vamos analisá-lo: 

— decrescente no intervalo — x — 1 
— crescente no intervalo — 1x + 

— nem par nem ímpar 

— Nnemiinjetora e nem sobrejetora 

Aproveite e procure pensar como a 
função quadrática poderia ser par e, 
definindo o domínio e o contradomtí- 
nio, como poderia ser bijetora. 

Vamos entrar agora na função mo- 
dular e digitemos, por exemplo, a fun- 
ção f(x) = ABS (x + 1/x), fazendo: 
80 DEF FN F(X) = ABS (X + 1/X) e 
depois GOTO 80 e obteremos o gráfico 
ao lado. | 

Vamos simplificar nossa análise e 
concluir que a função é, certamente, 
par, assim como qualquer outra fun- 
cão módulo. 





Figura 25 


Vejamos agora a função exponen- 
cial com o seguinte exemplo: 





Figura 26 





fix) = 2x, isto é, base 2 e teremos o 
gráfico ao lado. 

Vamos analisá-lo: 

— crescente 
— injetora 

Toda base maior que um nos dá uma 
função crescente, e fazendo a base en- 
tre O e 1 teremos uma função decres- 
cente e também injetora. 

Na função logarítmica temos o se- 
guinte domínio D(f) =x E r/0<x 
< 8). 

Experimentemos fazer a base N = 2 
e obteremos uma função crescente e 
injetora. E se fizermos base N = 0,5 te- 
remos uma função decrescente inje- 
tora. 


f(x) = log x 


Figura 27 


Para funções diversas, assim como 
para funções de 1 a 4, o domínio da 
função está entre —5e 5, o que permi- 
te escrever e plotar infinidades de fun- 
ções. Vamos apenas sugerir algumas 
interessantes funções que poderão ser 
estudadas pelos interessados: 

— HX)=X + 1/X 

— HUX)=X"3-3*X 

— F(X) = ABS(X 3-3*X) 
— HUX)=X"72+1WX "3-1 

E finalizando, temos as funções tri- 
gonométricas, que pertencem a um 
grupo especial de funções, chamadas 
periódicas. 

Elas não serão abordadas por ora, 
mas devido a sua importância resolve- 
mos colocá-las no programa. Oportu- 
namente estudaremos com detalhes e 
analisaremos cada uma das funções. 


O Programa 


O programa foi estruturado de ma- 
neira que possa ser alterado, conforme 
a conveniência do leitor, podendo até 
ser digitado parte dele, ou seja, a fun- 
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ção que interessar, não esquecendo as 
rotinas comuns. 
Observe ainda que enquanto os pon- 
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uma função do pri- | É LUBARITHLLA . E FORMAC FOO=ARLDHBALAO ) ONDE 
EO BI, * PRINTS PRINT TAB( 5)/4-FUNCOE (a) E! O COE FICIENTE MUMERICO D 
Linhas 45-61 = Rotina quê executa S DIVERSASO: PRINT: PRINT TAR( E (X) CUIS GRAU E! 2.4B) E” O COE 
uma função do se- | 5)"7-FUNDÕES TRIGONOMETRICAS” FICIENTE NUMERICO DE 00) CU-JO “» 
gundo:prau. 15 PRINT: PRINT: INVERSE : HTAB 
Linhas 65- 86 — Rotina que executa Bs PRINT “U ESCOLHA UM NUMERO )º3 50 PRINT GRAU EPL ECC EO TE 
uma função modu- | NORMAL 2 GET FS:I = “uAL ES): a RHO 
nm PEEX (35) 4 19 INDEPEN DENTE. PARA O TRACADO D 
Linhas 90-110 — Rotina que executa OR PEEM 139) ) 24 THEN 45: O GRAFICO 6 és -PUTADOR PEDIRA O 
uma função expo- | 20 ON 1 GOTO 30,45,65,90,115,140, 5 Vi PLORES DE (A),(2) E (0). ENTR 
aspcial. nn E COM 05 pres E VOCE TERA O GR 
Linhas 115-130 — Rotina que executa co nbr HECLOR 3 HPLOT 5,80 TO AFICO DESELADO its PRINT: 
uma função logarit- “É dó ANPUS “ENTRE COM O VALOR DE (á 
mica. Ei 


Linhas 140-180 — Rotina que executa 
uma função qual- 
quer, definida por 
nós. 


1 PRINT: INPUT CENTRE COM O VA 
K pd no rp PRINT 3 INPUT “E 
KO VALOR DE 40): “ «C: PRIN 
INT “LONFIRA À FUNCAO: “3 PRI 


ea 
pd 
[o 
poe 
+ 
tu 
1 
ama 
ço 
t 
a 
E» 
= 
aja 
tra 
“j 
3 
de 
E 
pes 
ay 
aj 
teta 
nes 
a 


Linhas 200-400 — Rotina que executa 
as funções trigono- 
métricas. 





Linhas 500-560 — Rotinaquedefineo | JfiRtLRE o o 
domínio da função 30 GEAi O núME 2 ATA B: VTAB di BET FS: IF FG O o 050 THEN 44 
e plota os pontos PRINT FURLAR 50 PRIMEIRO GráliC: PE di DEF ENFIM) =AXX!Z+B 
na tela À * PRI PR d EMOS é X + 

, Es GOGUD dE: SATO EN 

Linha 1000 — Retorna ao menu. pa irem io ai 

Linha 1500 sais Sub-rotina que de- ds TEXT = HOME : HTAB 13: UTAB 1: 
senha o sistema de PRINT “FUNÇÃO MODULARO: PRINT O: PR 


coordenadas carte- 
sianas no lado da 
tela (para a função 
Log). 

Linhas 2000-2010 — Rotina que define o 
domínio da função 
Logarítmica e plota 
os pontos. 
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DIDÁTICA 





E POSITIVOS (NJD) E O EXPOENTE dh PRINT “FUNCAO LOGAR] 
| PERTENCE ADS GEAIS,” e FUNCAO DO TI-POS (E 
PROGRAMA IRA io PRINT “PARA VALORES MUITO ALT - O COMPUTADOR IRA! € 
Atats PRINT Ay 05 D SE. DIJO VALOR DEVERA” SER MAI 
5 ( EXPRESSAO |) E (N) FICARA COMPROMETIDA à DES O QUE ZERO E DIFERENTE DE UM !* 
LUGAR DE (EXPRES NICAD CAAFICA DA FUN-CAO.”: INPUT (20 INPUT” ENTRE COM O VALOR DA 
UNCAO. LOGO APOS, BASE 
XE O PROGRAMA IRA “ENTRE COM O VALOR DE (N)27;N tNoso NADO N=i THEN 
75 STO (05 IF NO = THEN SO dá 
(06 PRINT: PRINT: PRINT OCONFIS tdo 
Exa - ' 
TUNDAGE FOD= CGNptot ts PRINT: CA PN) “ga BET FE: 
PRINT CONFERE ? (9/N)%: GET 5: 115 
IE CEL 4 “5% THEN DO LD6 (x) 4 t0 
iz DEF ENFIOO = NX: GOSUB 2 
5: 6070 500 BOSUR 2000: GOTO 1 
150 PRINT INVERSE s PRÍNT OO 019 
As VTAB 1: HTAB 12 
VALE N$=0 190 07 NORMAL 5 PRINT IVERSAS"+ PRINT: 
ERINT “APERTE BARRA DE csPACO": EE ESPALU PÁ 
Bti Fãs B0:0 90 
fi TEXTO HOME 2 NTAB dái VTAR : SRAU GALOR QUE 
E ERTNT “FUNÇÃO LOBARITHICAS: PRO -FUNCÕES HISTAS CF 





service 


Inclusão de 24 novas funções (Read, Data, etc.), 
Slow, High Speed, Alta Resolução, Porta de 1/0, etc. 
para micro de tecnologia SINCLAIR ZX81. 
Manutenção de microcomputadores SINCLAIR (TK 
82, 83,85, etc.) e TRS. 


Wilson de Assis — Tel.: 203-7967 


LIVROS NACIONAIS E 
IMPORTADOS DE INFORMÁTICA 


Livraria Imp. Científica Ltda. 


Av. Auguste-de Lima, 233 — sobrelojas 13e 17 
Fones: 224-5791 — 226-5853 e 226-5858 
Belo Horizonte — MG 


Ê 


appic cursos 


CURSOS DIRIGIDOS DE 
MICRO-COMPUTADORES 


e BASIClelle Applesoft 
e ASSEMBLER 6502 


e EDITOR DE TEXTO E PLANILHA ELETRÔNICA INÍCIO IMEDIATO 


NOVAS TURMAS (c/ 12 alunos) 


Reservas pelos Telefones: 853-9457 — 853-2408 Rua Suzano, 78 — Jardim Paulista — São Paulo 





QUAL A INTERFACE QUE ESTA FALTANDO 
NO SEU MICRO? 


É AQUELA QUE LHE DEVOLVERÁ O PRAZER DE FICAR EM FRENTE DO SEU 
MONITOR POR TEMPO ILIMITADO. 


MICROTELA possibilita que você continue com seu TV, pois possue a mesma tela de 
poliester utilizada nos monitores de última geração, filtrando e eliminando os reflexos, ao 
mesmo tempo que aumenta a resolução da imagem. 

Adicionalmente proporciona o mesmo efeito repousante dos monitores de fósforo colo- 
rido, utilizando acrílico nas tonalidades verde e ambar. 


Informações com MASTER STING LTDA. 
Caixa Postal 18708 — São Paulo — SP 


SOFTWARE IMPORTADO PARA 
SINCLAIR E APPLE 


SINCLAIR — incríveis jogos importados, animados, tridimensionais, em alta resolução p/ 
micros adaptados, com som p/ micros com gerador, com simulação de A.R. por soft, sin- 
tetizador de voz por soft e-vários aplicativos. 

APPLE — os mais recentes lançamentos do mercado mundial, fantásticos jogos super tri- 
dimensionais e os mais poderosos aplicativos existentes. 

Escreva — nos dizendo qual é o seu micro e receba uma lista completa, ou telefone para: 
TRANINSOFT — A/C WAGNER F. TRANIN — Caixa Postal 911 — 12200 — S. J. Cam- 
pos — SP — Tel.: (0123) 21-6753 (após 19hs). 


Sua empresa poderia estar aqui. 

Anuncie no HOBBYSHOP e todos os Lei- 
tores da região conhecerão sua empresa. 
Anúncio econônico e de retorno garantido. 
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DIDÁTICA 


NCAO MODULO COM EXPONENCIAL -ETL, 
145 PRINT “IMPORTANTE: CONVEM NAO 
E56 
UECER QUE O D 
“DAAiO É pg 
IDA, PODERA 
Cal BRAFICA 
SENDO NE 
NO PRO 
150 PRI 
M 05 
DADOS O PEoCRANA IRÁ PARAR 
E DIGITARA': | 
O DEF FN Fixoi= (EXPRESSÃO) » 
COLOCANDO NO LiGas DE (EXPRESS 
AO! À FUN-CAO QUE VOCE IMAGINAR | 
LObt APOS, DIGI-TE € GO70 470 5 
E Buá SORTE o 
140 STOP 
70 Der FNE) =X*2+] 
B3 ( 
k = d) 
180 GOSUB +52: GOTO 500 
e00 TEXT 2 VTóE is HTAB GB: INVERS 
E 3 PRINT “FUNÇÕES TRISONOME TRILÁS 
: NORMAL 


MA 
dão  VTAD HTAB B: 
LEI 
“( ESCOLHA UM NUMERO 3º: NORKAL 
dot GET FG = Vál (Fã) 
FCOLOR = PL O! E To O,i cds UNI GOSIE 350,352,960,365,3 
ci rt: ço 0,3? 


5 


Sou = 7 600 380 
3 e : NEQLOR = 3 
WLOT 0,80 TO 279,80 
HPLOT 0,0 TO 0,460 
FEOT 40,78 TO 60,80 


es 


Etto do GlD D L3 


Lim 
1 


a, 
ra 


mm 


“roraad 
[OR E RR sm 


tt “TI 
E O em 


UM Cm mM 
E q a 
EM Da 


E my ES 
mo 


E TM 


Lad Cad Pa Pa Po pay Frio pas Tua 


PLS fee qe 1 IS 


O EM Ca Em 


reoTÃ a do+ ig fa di+os 


EF L 


PRINT X, FN FO = Lx 120 / 3.44159 
4205 +00 

(DORYY 44 GOTO 335 
HPLOT X,Y 
NEXT 


ON 1 GOTO 390,390,395,395,400 


Ud Us Es3 


3] 


ER 


6 dás HTAB dz INVERSE : É 


E 
“ 
á 

à 
m 
x 
8s 


ed fas Lad 
a Sad Pl 
ES 


“BOTO 


DEF ENGIL) = SIN (LS RETU 


mol» 
Ed fu 


elo PRINT TAB( QrosaraseeraneaÃa 
HEL% 

axeex o PRINT O: PRINT PRINT 

ciO PRINT TáBt Gi“t. FUNCAO GENO 
“3 PRINT 

cio PRINT TaR( 

ENO” 

: PRINT 

co PRINT TABi 

ENTE 

“1 PRINT 

de) PRINT TÃBC &) 

BNDE 

NTE“: PRINT 

230 PRINT TAB( 555, 


Crime 


MI 


LOS (L): RETU 


Des ae 
Liga | 


FN Ati) (1): RETU 


DT a) DO gado A tuahesa 


ctéto 


Jó DEF FNAC) TAN (LJ: 
c10,80: nPLOT 245,76 TO cás,Be: Ri RETURN. 
TÚ RN | 370 DEF FX AL) (OS (LJ): 
eGo0 o TO E EiEr bs ETR 
cO0S GNERE GOTO Pile RF PENAL) =: SIN (L): 
ento Y FN FIZ 
clio 


se 
Eu 


Ene 


Ana 
mic 


ros 
-s 


NEXT 3 GOT 
FLIRLAO E 


Edo im es Eri 
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FALANDO 
A MESMA LINGUAGEM 


Falando a mesma linguagem dos empresários do 
setor, a equipe da EDIMAQ tem muito mais 


TERÇO PICA UA condições, até técnicas, de colocar seu produto no 


mercado, de forma racional e objetiva. 
| RES 
Cs |N FORMATICA 


Além disso, a EDIMAQ mantém uma estrutura 

funcional, que pode cuidar da produção de todo 

material promocional de sua empresa: catálogos, 
APPLE prospectos, mala direta, anúncios classificados e 


ZX SPECTRUM Markenting em geral. 
TRS /COLOR 


Consulte-nos, nós falamos a mesma linguagem,a 
linguagem da informática. 


DIVÃ bubliidada ka 

DRIVES, MONITORES, E , " IN £L [ 

INTERFACES, IMPRES. N 4 DUDIKIKIZ AN, 
PRIMENTOS, SINTETI- 

ZADOR DE VOZ, SOFT- R. Domingos de Moraes, 254 1º and. 


WARE. Cj. 102 A Tels.: (011) 8549-3772 549-7344 
5872-0309 S.P. 


CURSOS E SOLUÇÕES INTELIGENTES E RACIONAIS 


TREINAMENTO O microcomputador é hoje, sem dúvida, uma necessidade na vida 


das empresas e nos lares, para uso em estudos e lazer. 

BASIC I E | Diante disso com vistas a essa realidade, a Tropical Informática Ltda,, 

es ÁFICOS atende seus clientes, através de uma equipe técnica altamente 
especializada no setor. 

EDITOR DE TEXTO O usuário recebe orientação correta para a aquisição do equipamento 

DO — necessário as suas necessidades! 

Na área de treinamento a Tropical tem tido a satisfação de ver seus alunos 
concluirem os cursos, comprovadamente, programado em computadores. 
Os jovens usuários de computadores pessoais, necessitam constantemente 


de orientação e suporte técnico para tirar o máximo proveito 
P REÇOS E QUALIDADE de seus equipamentos. 


AO SEU ALCANCE Por essa razão, estamos sempre nos atualizando quanto as novidades 
em equipamentos e software para melhor atendê-los. 
(011) Nossa meta é dar atendimento personalizado aos seus clientes para que 
eles tenham noções para o seu desenvolvimento pessoal e profissional! 
Venha nos conhecer! 
9343-9859 * 533-4971 Você terá a oportunidade de verificar porque nosso lema é 
SOLUÇÕES Inteligentes e Racionais. 


RUA CALIFÓRNIA, 1.000 
BROOKLIN - SAO PAULO 


2 
> 
E, 
T 
Qu 
ea 
(9) 
En 
S 
<sd 
= 
< 
vt 
rec 
cm 
Ea 
EA 


Rua Colifómia, 1.000 - Brooblin - PÃO PAULO 
ones: 543-9859 - 5233-4974 DDD: 044 


ams QUADROS BRANCOS 


CAVALETES || PARA CANETAS E TINTAS APAGÁVEIS A SECO o 


e QUADROS FIXO AS PORTÁTEIS 
LOUSAS VERDES, QUADROS DE FELTRO FLIPCHART, QUADROS TELAS FIXAS, TEL 


BRANCOS, QUADROS QUADRICULADOS E TODO MATERIAL PARA À 
/ TREINAMENTO E CONTROLE VISUAL. PARA AUDITORIOS, CINEMA ETC. 
dd SISTEMAS SUPERQUADROS da 


RUA INDEPENDÊNCIA, 64 CAMBUCI SÃO PAULO FONE: 278-4196 
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Framework aplicações em finanças — 
administração — negócios 


Clark Fishbanck, Ted Reindal, 





Charles Pilgrim 
Editora McGraw-Hill 
e rea 
CL 
caatES PSA 
RX "OES E a 


Framework, um sistema que reúne 
todos os aplicativos (e potencialidades) 
necessários para um perfeito inter-rela- 
cionamento dos diferentes departa- 
mentos de uma empresa. 

Em outras palavras, “Framework 
aplicações em finanças — administra- 
ção — negócios” é uma obra dirigida 
aqueles que já possuem um conheci- 
mento de Wordstar, dBase Il ou Ill, 
Multiplan, 1-2-3 e aplicações comer- 
ciais existentes no mercado para mi- 
crocomputadores. 

Com esta publicação, o usuário terá 


a oportunidade de aprender como apli- 
car o Framework nos departamentos 
Pessoal, Marketing, Vendas, Contas a 
Receber e Produção. Economizando 
assim, tempo e dinheiro, pois este sis- 
tema substitui vários pacotes de soft- 
ware, que realizam um número limita- 
do de tarefas. 

Com o Framework vários tipos de or- 
camentos são comentados e demons- 
trados e muitas ferramentas financei- 
ras são ilustradas, entre elas, cálculos 
de taxas de juros, estatísticas básicas e 
análise de orçamentos. M.R. 





Wordstar 


Manual para processamento de textos 


Para micros de 8a 16 Bits, o Words- 
tar é um Sistema de processador de 
textos, que visa facilitar o trabalho na 
produção de cartas, relatórios, comu- 
nicações internas, catálogos, malas-di- 
retas. 


Com uma linguagem simples e obje- 
tiva este livro, através de 16 capítulos, 
oferece gradativamente os comandos 
e recursos do Wordstar e ao final de 
cada segmento são apresentados exer- 
cícios para uma melhor assimilação. 


José Antonio A. Ramalho 
Editora Atlas 





O livro apresenta ainda um resumo 
dos Menus do Wordstar e as funções 
dos seus comandos, além de procedi- 
mentos sobre: margens e parágrafos, 
correção de textos, margens e tabula- 
ção, impressão de textos e etc. 

Wordstar Manual para processa- 
mento de textos, produzido todo em 
Wordstar, é uma publicação importan- 
te para se ter em uma biblioteca de in- 
formática, na medida que pretende 
servir de instrumentos de apoio para o 
aprendizado deste sistema. M.R. 





dBase II — Aplicações Comerciais 


Roberto A. Byers 
Editora McGraw-Hill 
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Aprender fazendo. Este é o esque- 
ma deste livro que, segundo o autor 
“Um dos melhores métodos de apren- 
der é examinar o método usado por al- 
guma outra pessoa para resolver um 
determinado problema e então adaptar 
a solução para resolver o nosso proble- 
ma específico. A nossa adaptação será 
exclusiva e, por sua vez, se tornará 
modelo para alguma outra pessoa”. 


dBase Il segue esta linha de aprendi- 
zado e é dirigido àqueles que desejam 
desenvolver programas usando o dBa- 
se Il. Sendo assim, para aproveitá-lo 
ao máximo é necessário o leitor já ter 


completado o “Primer” ou ter algum 
conhecimento do dBase Il. 

O livro mostra na sua segunda e 
maior parte a utilização deste método 
em vários problemas financeiros, com 
uma série de programas para arquivos 
de clientes, listas e etiquetas de ende- 
reçamento e gerenciamento de inven- 
tário. 

Além de todo esse esquema, esta 
publicação aborda problemas mais di- 
nâmicos vinculados à entrada de pedi- 
dos de venda e faturamento. 

dBase Il é mais um livro guia para os 


já experimentados usuários do IBM 
PC.M.R. E. ani 
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Microcomputadores 


Introdução à Linguagem Basic 





gem, a Basic, de alto nível, mas de fá- 
cil compreensão, em outras palavras, 
“a proporção que o “vocabulário” do 
Basic vai sendo aprendido ele pode 
ser, imediatamente, usado em um 
computador, permitindo desde níveis 
elementares de conhecimento, à pre- 
paração de pequenos programas, os 
quais serão, paulatinamente, sofistica- 
dos à medida que o vocabulário conhe- 
cido for aumentado”. 

O livro aborda os seguintes assun- 
tos: uso do teclado e dos comandos; 
instruções múltiplas por linha; instru- 
ções para entrada de dados; sub-roti- 
nas; variáveis indexadas; o Basic da fa- 


“Ao cabo da primeira leitura da “In- 
trodução à Linguagem Basic” tornei- 
me um programador razoável de mi- 
crocomputadores”. Este comentário é 


retor Presidente da Digibrás) autor da 
apresentação do livro Microcomputa- 
dores Introdução à Linguagem Basic. 

Já em sua sexta edição, esta obra, 


mília Apple; e outros. 

Vale dizer ainda que o tipo de inter- 
pretador Basic exposto neste livro é o 
Microsoft, denominação referente a 


de Paulo Cotrim Rodrigues Pereira (Di- 


segundo o autor, trata de uma lingua- 


empresa que o desenvolveu. M.R. E 


PLANSOEFT 


FIQUE TRANQUILO, JÁ CHEGARAM OS MELHORES PROGRAMAS PARA O SEU TK 90X 


APLICATIVOS: 

901 Contas a Pagar e Receber 48K 

JOGOS 

920 Simulador de Vôo 48K 

Sensacional e realística Simulação de vôo pilotan- 
do um avião de grande porte. Segue manual com- 
pletissimo. 

921 Xadrez 48K 

O jogo dos reis em versão com 10 níveis. As parti- 
das poderão ser gravadas para utilização ou análi- 
se posteriores. O computador pode sugerir as jo- 
gadas. 

GAME PACKS: 

940 Game Pack 48K: 

* KNIGHT LORE: 

Participe da mais incrível aventura por 128 telas di- 
ferentes. Você se transformará em Mago, Monstro, 
etc. Incríveis e fantásticos efeitos visuais. 

* MANIC MINER: 

Participe da exploração da mina. Vários telas. 
941 Game Pack 48K: 

* PSYTRON: 

Efeitos gráficos inacreditáveis. Vários níveis. Um 
dos jogos mais completos desta linha. 

* KONG: 

Ajude a mocinha contra o King-Kong. 


942 Game Pack 48K: 

* PENETRATOR: 

Você estará invadindo o espaço aéreo inimigo. Vá- 
rios níveis, opção para treino e jogo. Possibilita a 
você criar sua própria cena do jogo. Versão do con- 
sagrado PENETRATOR da linha trs-80. 

* Chequered Flag: 

Simulação de corrida de Fórmula Um pelos consa- 
grados circuitos internacionais. 

943 Game Pack 48K: 

* FULL THROTTLE: 

Participe dos circuitos internacionais da Fórmula 
Um em Motorcicleta. Perfeita simulação. 

* Z00M: 

Seu objetivo é proteger os refugidos dos ataques 
inimigos. Várias cenas. 

944 Game Pack 48K: 

* CAVELON: 

Participe de uma aventura num castelo medieval. 
Vários níveis. 

* MR. WIMP: 

Que tal ajudar o barman a preparar uns sanduíches? 
945 Game Pack 48K: 

* ANDROID 2: 

Um jogo sensacional. Efeitos tridimensionais. Vá- 


rios níveis. 

* LUNATTACK: 

Defenda sua nave do ataque inimigo. 

946 Game Pack 48K: 

* TORNADO LOW LEVEL: 

Consagrado Best Seller desta linha. Pilote um jato 
em defesa de sua cidade. Efeitos gráficos Incríveis. 
* TUTANKAMUN: 

Participe de uma aventura nos labirintos do palácio. 
980 Game Pack 16K: 

* COOKIE: 

Ajude o cozinheiro preparar seu almoço 
*CENTIPED: 

Defenda-se da centopélia 

981 Game Pack 16K: 

* JET PAC: 

Participe de uma aventura na lua, voando com seus 
foguetes portáteis. 

* SEIDDAB ATTACK: 

Defenda a cidade das naves inimigas, usando os ti- 
ros poderosos de seu tanque. 

982 Game Pack 16K: 

* PSSST: 

Ajude o sapinho defender a flor dos insetos. 

* THRUSTA: 

Sensacional jogo num labirinto diferente. 


INFORMAÇÕES À PLANECON INFORMÁTICA LTDA. 


Av. Água Fria, 925 — CEP 02330 — 
Fone: (011) 204-2777 São Paulo — SP 


DISPONÍVEL NA: 


A CAMBIAL — AMAROSON — ARNO — DECKER — ASSIS DATA — AUDIO — BRENO ROSSI — BRUNO BLOIS — CASA DOS GRAVADORES — CINE 
FOTO G.B. — CINÓTICA — COMERCIAL SEIXAS — COPIADORA BRASILEIRA — DIGITAL TÉCNICA — ELETRÔNICA SANTANA — FILCRIS — FOTOPTICA 
— GUERDISK — J.H. SANTOS — L.T. HAGA — MADISON — MAPPIN — MESBLA — MILTON SILVA CIA. — PÃO DE AÇUCAR — SANDIZ — SHOP 


AUDIO E VIDEO 
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CURSOS . 


Nesta edição apresentaremos uma 
série de programas que servirão para 
exercitarmos nossos conhecimentos 
da linguagem Assembly do 6502. 


PROGRAMA 1 


Adição de numeros com dois 
bytes cada 


Vamos tomar como exemplo a soma 
entre os números $55A4 e $S3CB3 


S55A4 = 01010101 10100100 
$3CB3 = 00111100 10110011 
CARRY «<-- +71 01010111 Parte menos significa- 

10010010 


Le parte mais significativa do byte do 
resultado 


Resultado Final: 10010010] 101010111 
92 57 


Hexadecimal 


A listagem do programa, que realiza 
a soma dos números de dois bytes ca- 
da, será apresentada a seguir. Os nú- 
meros pertencentes à essa operação 
de adição estão localizados a partir do 
endereço $316, ou seja, o número 
$S55A4 será armazenado da seguinte 
forma: 
Valor mais significativo no endereço 
$317 
Valor menos significativo no endereço 
$316 | 

Por sua vez, ocorrerá o mesmo va- 
lor $S3CB3: 
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tiva do byte do resultado 


Assembly 6502 


Aula X 


Valor mais significativo no endereço 
$319 
Valor menos significativo no endereço 
$318 


Listagem 1 


1 — Zera o bit de Carry 

$300 — 18CLC 

2 — Carrega, adiciona e armazena os 

bytes menos significativos: 

$301 — AD LDA $0316 — carrega o 
byte menos significativo do 
primeiro número 

$302 — 16 

$303 — 03 

Observação: BMES (byte menos signi- 

ficativo) e BMAS (byte mais significa- 

tivo) | 

$304 — 6D ADC $0318 — Adiciona ao 

BMES do segundo número 


$305 — 18 

$306 — 03 

$307 — 8D STA $031B — Armazena o 
resultado do BMES 

$308 — 1B 

$309 — 03 


3 — Carrega, adiciona e armazena os 
BMAS e retorna ao monitor: 

$30A — AD LDA $0317 — Carrega o 
BMAS do primeiro número 


$30B — 17 

$30C — 03 

$30D — 6D ADC $0319 — Adiciona ao 
BMAS do segundo número 

$30E — 19 

$30F — 03 
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$310 — 8D STA $031A — Armazena o 


resultado do BMAS 
$311 — 1A 
$312 — 03 


$313 — 60 RTS — Retorna ao Monitor 


4 — Dados: 

$314 — 00 — vazio 

$315 — 00 — vazio 

$316 — A4 — BMES do primeiro nú- 
mero 

$317 — 55 — BMAS do primeiro nú- 
mero 

$318 — B3 — BMES do segundo nú- 
mero 

$319 — 3C — BMAS do segundo nú- 
mero 


PROGRAMA 2 


Subtração de números com dois 
bytes cada 


Este programa realiza a operação 
contrária à operação anterior. 

Vamos efetuar a subtração com os 
mesmos números $S55A4 e S3CB3 


S55A4 = <— (0101 0101 1010 0100 
S3CB3 = 0011 1100 1011 0011 


(0001/1000 d114000%-Binário 


Resultado = 1 8 F 1—->Hexadecimal 
Listagem 2 


$300 — 18 CLC 


CURSOS 


$301 — AD 1603 LDA $ 0316 
$304 — 6D 1803 ADC $0318 
$307 — 8D 1B 03 STA $031B 
$30D — AD 17 03 LDA $0317 
$30D — 6D 1903 ADC $0319 
$310 — 8D 1A 03 STA SO3S1A 


Este programa é apresentado de 
uma forma bem simples podendo, pos- 
teriormente, ser aperfeiçoado pelo pró- 
prio leitor e tornar-se um aplicativo 
bastante didático para os interessados 
no aprendizado musical. 





$313 — 60 ATS Listagem 3 
$314 — 00 BRK 
$315 — 00 BRK 1 — Início 
$316 — A4 BMES do primeiro $300 — A9 LDAH $C8 
número $301 — C8 
$317 — 55 BMAS do primeiro Figura 1 $302 — 85  STAS$01 
número $303 — 01 
$318 — B3 BMES do segundo Este simbolo, ilustrado no lado es- $304 — 20 JSR$FC58 
número querdo da pauta de cinco linhas, cha- $305 — 58 
$319 — 3C BMAS do segundo ma-se Clave de Sol. Cada uma destas $306 — FC 
número “Bolinhas”, situadas na pauta, são as S$307 — A2 LDX + 300 
notas musicais, contadas da esquerda $308 — 00 
PROGRAMA 3 para a direita. São elas: dó, ré, mi, fá, $309 — 20  JSR$0352 
sol, lá, si, dó. $S30A — 52 
Este programa emite notas musicais As notas musicais são armazenadas $30B — 03 
no alto-falante de seu televisor e impri- a partir do endereço S33A. $30C — A9 LDA SOF 
me, simultaneamente, caracteres grá- Os caracteres gráficos, por sua vez, S$30D — OF 
ficos que as representam. Vamos ver terão seus valores armazenados nos $30E — 85 STAS30 
como as notas musicais podem ser endereços $342 (coluna) e S34A (li- S30F — 30 


apresentadas (Veja figura 1). 






nha). 


O MELHOR SOFTWARE 


PARA SUA fo dã ERES A À 


2 — Plota o ponto 











IN Euitora 
Aleph 





























oca saw 
q TK 82/83/85, CP 200 e Sinclair ZX81 = E so 8 
ne E e: — + 
sê as" 1 Usando linguagem de máquina ...... $& 85.000 oe g2es 
2 Jogos em linguagem de máquina vol. 1. .& 79.000 = a ER 

E 3 Jogos em linguagem de máquina vol. 2. .$ 85.000 2 .c.é43% 
4 Jogos em linguagem de máquina vol. 3. .$ 92 000 O “ias 
5 Criando em linguagem de máquina . .. .& 99 000 Os Qd, qu 
6 Tabela de mmnemônicos Z80 ........ 17 000 so = Io 

7 Oseu micro e o mundo externo. ..... $& 95 000 E a a = 
8 Bmic TK vol. sussa inesnas + $ 65.000 2RoUas 
O Base TKVOL MM, sazsarenssssos 78.000 SNêÊLEO e 
10 Batié TK VOL TE. mao cava és 88.000 358 És. 
11 Coleção de programas vol. 3. ....... 59.000 Ssosszts 
12 Dissecando jogos .......cccrero 65.000 yu cvaLoO- 


14 Super Basic TK ....cccccccc rs. 
15 Informática na escola, . . ......... 


$ 
$ 
$ 
$ 
13 Evoluindo no Basic TK. .......... : 
$ 
16 Curso de jogos em Basic TK. ....... $ 


ZX SPECTRUM E TK 90 X 
17 Explorando o TK90 X...... ro $ 90.000 
APPLE 11 (TK 2000) 
18 Tabela de mnemônicos do 6502. ..... $ 22.000 
19 Assembly 6502 .........cc.cs $ 97.000 
20 Guia do Programador DOS. ........ $ 99.000 


MSX 









21 Dominando o Expert. ........... $ 102.000 
22 Linguagem Basic MSX ........... $ 105.000 
23 Resumo de operações do Expert ..... $ 24.000 
24 Coleção de Programas MSX (vol. 1). . . .6 93.000 


PREÇOS VÁLIDOS P/ TEMPO LIMITADO 


* 


Nossos livros estão à venda também nas boas livrarias e lojas de computação. 


Desejo receber os livros correspondentes aos números assinalados 
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CURSOS 


$310 — BC 
9311 — 42 
$312 — 03 
$313 — BD 
$314 — 4A 
$315 — 03 
$316 — 20 
$317 — 00 
$318 — F8 
3 — Lê anota 
$319 — BD 
S31A — 3A 
$31B — 03 
$31C — 85 
$31D — 00 
$31E — 8A 
$31F — 48 


LDY $ 0342,X 


LDA 034A,X 


JSR $ F800 


LDA $S O33A,X 


STA $00 


TXA 
PHA 


4 — Executa a Nota 


$320 — AD LDA S$SCO30 


$321 — 30 
9322 — CO 
3323 — 88 
$324 — DO 
$325 — 04 
$326 — C6 
$327 — 01 
$328 — FO 
$329 — 08 
S32A — CA 
$32B — DO 
$32C — F6 
$32D — A6 
S32E — 00 
$32F — 4C 
$330 — 20 
$331 — 03 


5 — Checa 


lidas 

$332 — 68 

$333 — AA 
$334 — E8 

$335 — EO 

$336 — 08 

$337 — DO 
$338 —.D7 
$339 — 60 

6 — Dados 
S33A — 88 
$33B — 79 
$33€C — 60 
$33D — 67 
S33E — 59 

S33F — 51 

$340 — 48 

$341 — 44 

$342 — 07] 


DEY 
BNE $04 


DEC Zf $01 
BEQ $08 


DEX 
BNE F6 


LDX Zf500 


JMP 30320 


se todas as notas foram 


PLA 
TAX 
INX 
CPX Ff s08 


BNE $D7 


RTS 


Valores das Notas 


Musicais 


58 MICROHOBBY 





Coluna do Caracter 
Plotado 


Linha do Caracter 
Plotado 


LDA $ CO5O 


LDA $ COD 


PROGRAMA 4 


Este programa, feito inteiramente 
em Assembly, transforma o teclado de 
seu computador em um teclado musi- 
cal, com oito notas completas (1 oita- 
va). Às notas musicais situam-se nas 
teclas de 1 a 8. Para retornar ao modo 
normal, pressione O. 


Listagem 4 
1 — Limpa a tecla 


$300 — 2058FC JSRS$FC 58 
2 — Lêo teclado 


$303 — 20 JSR $ FD35 

$304 — 35 

$305 — FD 

$306 — C9 CMP Zí SBO 

$307 — BO 

$308 — 30 BMI S$SF9 

$309 — F9 

$S30A — FO BEQ $25 

$30B — 25 

$30C — C9 CMP 77 $B9 

$30D — B9 

$30E — 10 "BLPS$SF3 
30F — F3 

3 — Converte o valor do teclado 

$310 — 29 AND Z/0F 

$311 — OF 


$312 — AA TAX 
4 — Estabelece a duração da nota 


ERRATA 


$313 — A9 
$314 — 60 
$315 — 85 
$316 — 01 
$317 — BD 
$318 — 32 
$319 — 03 
S31A — 85 
$31B — 00 
5 — Executa a nota 

$31C — AD LDA $ CO30 
$31D — 30 

$31E — CO 

$31F — 88 DEY 

$320 — DO BNE $04 
$321 — 04 
$322 — C6 
$323 — 01 
$324 — FO 
$325 — 08 
$326 — CA DEX 
$327 — DO BNE SF6 
$328 — F6 
$329 — A6 
S32A — 00 
$32B — 4C 
$32C — 1€ 
$32D — 03 
6 — Lê a nova nota ou finaliza 
$32E — 4€ JMP $ 0303 
$32F — 03 

$330 — 03 

$331 — 60 RTS 

7 — Dados 

$332 — EA 

$333 — 85 

$334 — 7F 

$335 — 79 

$336 — 74 

$337 — 6F 

$338 — 6B 

$339 — 67 

S33A — 64 


LDA 77$60 


STA $01 


LDA $ 0332,X 


STA $00 


DEC 7501 


BEQ $08 


LDX 7100 


JMP $31C 






